Alttaki gibide olabilir.

Sub SayfaAktar()

    Dim syf As Worksheet

    Application.ScreenUpdating = False

    With ThisWorkbook.Sheets("Depo")

        .Range("A2:L" & Rows.Count).ClearContents

        For Each syf In ThisWorkbook.Sheets

            If LCase(syf.Name) <> "depo" Then

                If WorksheetFunction.CountA(syf.Range("A2" & Rows.Count)) > 0 Then

                    syf.Range(syf.Range("A2"), syf.Range("A1").End(xlDown).End(xlToRight)).Copy

                    .Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial xlValues

                End If

            End If

        Next

    End With

    MsgBox "islem tamam...", vbInformation, "Bilgi"

    Application.ScreenUpdating = True

    Application.CutCopyMode = False

End Sub

---

 syf.Range(syf.Range("A2"), syf.Range("A1").End(xlDown).End(xlToRight)).Copy

Eğer satırlar arasında boş olacaksa örneğin Tc sütunucaki satırda boş veri olursa alttaki gibi değiştirilir yukarıdaki kodun.

syf.Range("A2" & syf.Range("A" & Rows.Count).End(3).Row).Copy