Copy all data in Sheet1 to Sheet2

[Nick70]

Hi,

I have some data that I need to copy from Sheet1 onto Sheet2.

The data in Sheet1 changes every day so I cannot have a predefined range but need to make sure I select it correctly every time I want to copy it.

In order to select my data I would need to start on cell A4 and then select all cells with data to the right and all cells with data going down.
This way I make sure I have selected all data to copy onto Sheet2 (so I have my range).

Once data selected I need to copy it and paste it onto Sheet2 in cellA1.

How do I do this?

Thanks,
N.

 

[Michael M]

Try using

Sub MM1()
Dim lr As Long, lc As Integer
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
lc = Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
Range("A4", Cells(lr, lc)).Copy Sheets("Sheet2").Range("A1")
End Sub

 

[Nick70]

Perfect thanks!

 

[Michael M]

Perfect thanks!

Glad to help