Copy UsedRange except for Header

[LNG2013]

In VBA how can I copy a Used Range except for the header?

 

[John_w]

Try this. It copies the used range except for the header row from Sheet1 to Sheet2.

Sub CopyUsedRange()
    
    Sheets("Sheet2").Cells.ClearContents
    
    With Sheets("Sheet1").UsedRange
        .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0).Copy Sheets("Sheet2").Range("A1")
    End With
    
End Sub

 

[Norie]

Here's another one.

Dim rng
Set rng = Worksheets("Sheet1").UsedRange
Intersect(rng, rng.Offset(1)).Copy Worksheets("Sheet2").Range("A2")

 

[gkarthick]

@Norie - This is fabulous! +1