Sub Summarize macro code help needed.....

I have received great advice here in the past and I greatly appreciate it! I am hoping someone can help me with this issue as well...

I have a workbook with multiple sheets that are being updated regularly by different users. I am using a Sub Summarize macro to copy all data from the individual sheets and paste it all on one summary sheet ("Data Summary") in the workbook so that management doesn't need to look at 20 different sheets to get the data.

The code I am using works great and data from all the sheets populates correctly on the summary sheet but I need some help fine tuning 2 issues. I know it is probably a simple fix but for some reason i just can't figure it out.

Issue 1: I need to copy data from all sheets starting at Row 3 instead of row 1 because the first 2 rows on all sheets are header rows. Right now when I run the Macro I end up with 20 identical header rows on the "Data Summary" sheet

Issue 2: I need one sheets data to be excluded from the summary as it is an instructions page. The sheet name is "Storm" and I do not want its data included in the Summary sheet.

Here is the code I am using any help would be greatly appreciated!

Sub Summarize()
    Dim ws As Worksheet
    Dim lastRng As Range
    Application.ScreenUpdating = False 'speed up code
     
    ThisWorkbook.Sheets("Data Summary").Rows("2:65536").ClearContents 'clear
     
    For Each ws In ThisWorkbook.Worksheets
    
      Set lastRng = ThisWorkbook.Sheets("Data Summary").Range("A65536").End(xlUp).Offset(1, 0)
         
        Select Case ws.Name
        Case "Data Summary" 'exlude
             'do nothing
        Case Else
            ws.Activate
             
             'copy data from individual sheets
            Range("A6556", Range("X65536").End(xlUp)).Copy lastRng
             
        End Select
    Next
    Application.CutCopyMode = False 'clear clipboard
    Application.ScreenUpdating = True
    Sheets("Data Summary").Activate
End Sub

try this code

Option Explicit

Sub Summarize()
    Dim ws As Worksheet
    Dim lastRng As Range
    
    Application.ScreenUpdating = False 'speed up code
    ThisWorkbook.Sheets("Data Summary").Rows("2:65536").ClearContents 'clear
    For Each ws In Worksheets
        If ws.Name <> "Data Summary" Then
            ws.Range("a3").Select
            Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
            Sheets("Data Summary").Select
            Range("a3").Select
            If ActiveCell.Offset(1, 0) = "" Then
                ActiveCell.Offset(1, 0).Select
                Else
                ActiveCell.End(xlDown).Offset(1, 0).Select
            End If
            ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
            Application.CutCopyMode = False
        End If
    Next ws
    Application.ScreenUpdating = True
    Sheets("Data Summary").Activate
End Sub

if its not working for you, please post your sample