Copy range, offset, then paste

Yes, there's no such thing as Activeworksheet.

With ActiveSheet.Range("V3:AE3")
    .Copy .Offset(6)
End With