Excel Forum

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'
    Range("I42").Select
    Selection.Copy
    Application.Goto Reference:="OFFSET(R62C5,COUNTA(R62C5:R132C5),0)"
    ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
            Range("I45").Select
    Selection.Copy
    Application.Goto Reference:="OFFSET(R62C6,COUNTA(R62C6:R132C6),0)"
    ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        Range("L55").Select
            Selection.Copy
    Application.Goto Reference:="OFFSET(R62C9,COUNTA(R62C9:R132C9),0)"
    ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'
End Sub