Need cut and paste data from multiple sheets to one master sheet

Sub CombineAllSheets()
 Dim ms As Worksheet, LRms As Long, ws As Worksheet, LR As Long, rng As Long, i As Long
 
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    
    On Error Resume Next
    
    If Not Evaluate("ISREF(Master!A1)") Then
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Master"
    Else
        Set ms = Sheets("Master")
        Sheets("Master").Range("A2:D" & Rows.Count).ClearContents
    End If
     
     Worksheets(1).Rows(1).Copy ms.Range("A1")
     
 For Each ws In Worksheets
    With ws
        If .Name <> "Master" Then
            LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
            .Range("A2:D" & LR).Cut ms.Range("A" & ms.Range("A:P").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1).Resize(, 16)
             
        End If
    End With
 Next ws
     
     Application.CutCopyMode = 0
     
     Application.ScreenUpdating = 1
    
     Application.DisplayAlerts = 1
End Sub