The following works for me:
Sub AllDataToForthSheet()
Application.ScreenUpdating = False
Dim SheetCtr As Double
Dim Last1Row As Double
Dim LastShtRow As Double
With ActiveWorkbook
  For SheetCtr = 5 To .Sheets.Count
    With .Worksheets(SheetCtr)
      LastShtRow = .Cells(Rows.Count, "D").End(xlUp).Row
      If .Cells(Rows.Count, "J").End(xlUp).Row > LastShtRow Then
        LastShtRow = .Cells(Rows.Count, "G").End(xlUp).Row
      End If
    End With
    With .Worksheets(4)
      Last1Row = .Cells(Rows.Count, "F").End(xlUp).Row
      If .Cells(Rows.Count, "G").End(xlUp).Row > Last1Row Then
        Last1Row = .Cells(Rows.Count, "J").End(xlUp).Row
      End If
    End With
    .Worksheets(SheetCtr).Range("D25:S" & LastShtRow).Copy
    .Worksheets(4).Range("F" & Last1Row + 1).PasteSpecial xlPasteValues
  Next SheetCtr
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub