Lyrad39
06-14-2023, 08:26 PM
Good day community,
I am intending to loop and copy the tables (K4:T20) as well as other tables on the right till the end, pasting them below row 20 and so on. I am stuck with an error whereby the last column for "Sd" results are pasted on column A instead of column K as shown in the 2nd photo. Also, I am unable to paste the codes starting from K4 onwards for Sd results. Here are my codes and any help would be greatly appreciated!
3086130862
Sub MoveTables()
Dim Lastcol As Long, c As Long
Lastcol = Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For c = 11 To Lastcol Step 10
Cells(4, c).Resize(17, 10).Cut Destination:=Range("C" & Rows.Count).End(xlUp).Offset(1, -2)
Next c
End Sub
I am intending to loop and copy the tables (K4:T20) as well as other tables on the right till the end, pasting them below row 20 and so on. I am stuck with an error whereby the last column for "Sd" results are pasted on column A instead of column K as shown in the 2nd photo. Also, I am unable to paste the codes starting from K4 onwards for Sd results. Here are my codes and any help would be greatly appreciated!
3086130862
Sub MoveTables()
Dim Lastcol As Long, c As Long
Lastcol = Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For c = 11 To Lastcol Step 10
Cells(4, c).Resize(17, 10).Cut Destination:=Range("C" & Rows.Count).End(xlUp).Offset(1, -2)
Next c
End Sub