Looping through worksheets to copy/paste to new sheet - last sheet never copies

hi look at this code I think it is what you need

Sub CopyPasta()

Application.ScreenUpdating = False
Worksheets.Add(Before:=Worksheets(1)).Name = "Data Sheet"

Dim ws As Worksheet
         
   For Each ws In Worksheets
   
      If ws.Name <> "Data Sheet" Then
          ws.Range("A2:" & ws.Cells.SpecialCells(xlLastCell).Address).Copy Destination:=Worksheets("Data Sheet").Range("A1048576").End(xlUp).Offset(1, 0)
         
      End If
   Next
   
Worksheets("Data Sheet").Rows("1").EntireRow.Delete
Range("A1").Select
Application.ScreenUpdating = True
                 
End Sub