May 13 2019 07:28 PM
May 13 2019 09:16 PM
Maybe this would work. The first one works with absolute cells, the later works for relative cells.
Sub Macro1()
Tem_value = Range("H3").Value + 1
Range("H3").Select
ActiveCell.FormulaR1C1 = Tem_value
Range("C4").Select
End Sub
Sub Macro2()
Tem_value = ActiveCell.Offset(0, 6).Value + 1
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = Tem_value
ActiveCell.Offset(1, -6).Range("A1").Select
End Sub