Hi,
I'm struggling to get this work, basically i have a macro which copies data from each line, based on the row info copied.
The current code i have is as follows:
i want the file to save as cell "A9" dataSub Macro1()
'
' Macro1 Macro
' Keyboard Shortcut: Ctrl+r
Let x = 0
Do While x < 190
ActiveWindow.SmallScroll Down:=33
Rows("61:190").Select
Selection.Copy
Rows("60:60").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
x = x + 1
Loop
End Sub
Thank you in advance.
Kind Regards,
Caf20012
Bookmarks