Hier mal eine Idee, ungetestet. Falls du tatsächlich ganze Werteblöcke lückenlos übertragen möchtest, könnte man von der Einzeilenlösung auf eine Bereichslösung wechseln. Das würde die Sache sicher auch beschleunigen.
Private Sub Populate_TestReduction_Click()
Dim Orig_Zeile As Long
Dim Orig_Spalte As Integer
Dim startZeile As Long
Dim aktuelle_Zeile As Long
Dim end_Zeile As Long
Dim count As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
startZeile = 13
Orig_Zeile = startZeile
Orig_Spalte = 5
aktuelle_Zeile = 11
For count = 1 To 2
Set ws = Worksheets("Sheet" & count)
Do While ws.Cells(Orig_Zeile, Orig_Spalte).Value <> ""
Worksheets("Summary").Cells(aktuelle_Zeile, 157).Value = ws.Cells(Orig_Zeile, 5).Value
Orig_Zeile = Orig_Zeile + 1
aktuelle_Zeile = aktuelle_Zeile + 1
Loop
Orig_Zeile = startZeile
Next
Application.ScreenUpdating = True
End Sub