offset, resize를 이용한 매크로 예...펌

 
 Sub Resize()
 Dim sht  As Worksheet
 Dim rng  As Range
 Dim rngR As Range
     Set sht = Worksheets("sheet1")
     Set rng = sht.Range("a65536").End(xlUp).Offset(1) 'a열기준으로 마지막행이 위치한 곳의 offset의 행
     Set rngR = sht.Range("a2")
         With rng
             .Offset(0, 0).Resize(, 4).Value = rngR.Offset(0, 0).Resize(, 4).Value
         End With
 End Sub