Usedrange Resize VBA
<p>I have used the following code to copy and data from various excel worksheets in a selected file and paste to a separate consolidated data workbook. </p>

<p>It's working fine but I would like to copy and paste the text from the worksheets without including the first row (or header).</p>

<p>I guess I need to resize the used range selection.</p>

<p>Any thoughts would be appreciated.</p>

<pre><code>Sub Data()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Sheet As Worksheet
Dim PasteStart As Range

Set wb1 = ActiveWorkbook
Set PasteStart = [Sheet1!A2]

Sheets("Sheet1").Select
Cells.Select
Selection.ClearContents

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report", _
FileFilter:="(.xls),")

If FileToOpen = False Then
MsgBox "No File Specified.", vbExclamation, "ERROR"
Exit Sub

Else

Set wb2 = Workbooks.Open(Filename:=FileToOpen)

For Each Sheet In wb2.Sheets
    With Sheet.UsedRange
        .Copy PasteStart
        Set PasteStart = PasteStart.Offset(.Rows.Count)
    End With
Next Sheet

End If

wb2.Close

End Sub
</code></pre>