make a loop for range

[ganu learner]

Range("A15:L15").Value = Range("A16:L16").Value
Range("A16:L16").Value = Range("A17:L17").Value
Range("A17:L17").Value = Range("A18:L18").Value
Range("A18:L18").Value = Range("A19:L19").Value
Range("A19:L19").Value = Range("A20:L20").Value
Range("A20:L20").Value = Range("A21:L21").Value
Range("A21:L21").Value = Range("A22:L22").Value
Range("A22:L22").Value = Range("A23:L23").Value
Range("A23:L23").Value = Range("A24:L24").Value
Range("A24:L24").Value = Range("A25:L25").Value
Range("A25:L25").Value = Range("A26:L26").Value
Range("A26:L26").Value = Range("A27:L27").Value
Range("A27:L27").Value = Range("A30:L30").Value
Respected Sir please make a loop vba script for above condition.

 

[Phuoc]

Try this

Public Sub test()
Dim i As Long
For i = 15 To 26
Range("A" & i).Resize(1, 12).Value = Range("A" & i + 1).Resize(1, 12).Value
Next i
Range("A27:L27").Value = Range("A30:L30").Value
End Sub

 

[ganu learner]

Try this

Public Sub test()
Dim i As Long
For i = 15 To 26
Range("A" & i).Resize(1, 12).Value = Range("A" & i + 1).Resize(1, 12).Value
Next i
Range("A27:L27").Value = Range("A30:L30").Value
End Sub

thankyou Sir ,working fine