Column A range break to multiple ranges

Sub data_filter()
Dim k As Integer
For k = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row Step 40
Sheet1.Range(Sheet1.Cells(k, "A"), Sheet1.Cells(k + 39, "A")).Copy Sheet1.Range("XFD1").End(xlToLeft).Offset(0, 1)
Next
End Sub

Example :-

data	data	44,305	46,119	45,540
44,305		49,819	43,784	49,313
49,819		41,860	44,472	44,973
41,860
46,119
43,784
44,472
45,540
49,313
44,973