How to copy a range in sequence

[kyg]

Hi I have a range of data in a table from B3 to B40. I'm trying to write a macro to copy the range in rows of 4 and paste it to another application in sequential manner till the last row is done. ie B3 to B6 follow by B7 to B10 and so on. Do I have to use a loop?

Appreciate the help here. Thanks in advance

 

[Excelogist]

Sub CopyData()

  Dim i As Long
  i = 3
 
  With Sheet1
 
      Do While .Range("B" & i) <> ""
        .Range("B" & i).Resize(4).Copy Destination:="Add your Destination Here"
        
        i = i + 4
      Loop
 
  End With

End Sub