VBA to copy offset range

[andrewb90]

Hi all,

I have a macro that filters a table, then I am working on copying select pieces of data to another sheet. I have been able to copy individual cells, but I can't seem to copy an entire range, and any variation I make gives me errors. I'm sure its something very simple I'm doing wrong, so any help would be greatly appreciated. The cell range is selected in a different module. (see second code)

Sub COPYCARA()
ActiveCell.Offset(1, 0).Activate
Do Until Selection.EntireRow.Hidden = False
If Selection.EntireRow.Hidden = True Then
ActiveCell.Offset(1, 0).Activate
End If
Loop
ActiveCell.Select
Selection.Copy
    Sheets("CAR_STATS").Select

End Sub

#2

'***********Revenue******************
Sheets("Large_Set").Select
Range("AB1:AL1").Select      'data column choice
Application.Run "Module2.COPYCARA"
Range("C9").Select      'pasting location
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False