I am trying to write a simple macro in excel to do some calculations and copy and paste the sum from cell O2 to cell T2. Do some more calculations and copy and paste the sum from cell O2 to cell T3 (next cell) and continue the process till it's finished. I am not sure how I can get code to paste the value in the next cell (T3). Here are the codes I have done so far. Can you please help? Thank you.
Sub CountingValue()
Dim N1 As Long
Dim N2 As Long
For N1 = 1 To 45
For N2 = 2 To 45
Range("K2").Select
ActiveCell.FormulaR1C1 = N1
Range("L2").Select
ActiveCell.FormulaR1C1 = N2
ActiveCell.Offset(-1, 3).Range("A1").Select
Selection.Copy
ActiveCell.Offset(1, 5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range("A1").Select
Application.Wait (Now + TimeValue("0:00:05"))
Next
Application.Wait (Now + TimeValue("0:00:10"))
Next
End Sub
Bookmarks