Macro to Copy Data From Multiple Sheets onto Single Sheet

Sub TransferData()

Application.ScreenUpdating = False

Dim ws As Worksheet
Dim lRow As Integer

For Each ws In Worksheets
    If ws.Name <> "Summary" Then
        Sheets(ws.Name).Select
        
 For Each cell In Range("A5:A" & Cells(Rows.Count, "A").End(xlUp).Row)
            If cell.Value <> "" Then
                lRow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row + 1
                Range(Range("A" & cell.Row), Cells(cell.Row, "A")).Copy Sheets("Summary").Range("A" & lRow)
                Range(Range("S" & cell.Row), Cells(cell.Row, "S")).Copy Sheets("Summary").Range("B" & lRow)
                Range(Range("W" & cell.Row), Cells(cell.Row, "W")).Copy Sheets("Summary").Range("C" & lRow)
                Sheets("Summary").Range("D" & lRow).Value = ws.Name
            End If
    Next cell
End If
Next ws

Sheets("Summary").Select
Application.ScreenUpdating = True
Application.CutCopyMode = False
            
End Sub