VBA help! - Last Row query

[iGavC]

Hi,

I'm in the process of trying to consolidate multiple sheets into one.

Sub Consolidate_Data()


' Copy Data onto one sheet

Sheets("Data1").Select
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A3:S" & Range("A" & Rows.Count)).Select
Selection.Copy
Sheets("All Data").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

End Sub

Getting "Method 'Range' of object '_Global' failed
Keeps falling over on line 4. Any clue what I'm doing wrong?

Was trying to avoid using a LastRow Dim as it's across multiple tabs in the worksheet.

Any help appreciated.

Thanks
Kind regards

 

[steve the fish]

You want to use the last row in row A?

Range("A3:S" & Range("A" & Rows.Count).End(xlUp).Row).Copy

 

[iGavC]

You want to use the last row in row A?

Range("A3:S" & Range("A" & Rows.Count).End(xlUp).Row).Copy

Hi,

Yes that was the hope? I want to copy the range from A-S (row will vary)

Thank you

 

[Fluff]

Did you try what steve the fish suggested?