Makro führt nicht bis zum Schluss aus

Sub Formeln()
Dim i As Integer
Dim j As Integer
Dim Sp As Integer
Application.ScreenUpdating = False
i = 6729 'Zeile, von wo aus gestartet wird = Counter, wie viele Zeilen
j = 6724 'Zeile, von wo aus gestartet wird = Counter, wie viele Zeilen
Sp = 115 'Spalte, von wo aus gestartet wird = Counter, wie viele Spalten
Do Until ActiveSheet.Range("A" & i).Value = "" 'Spalte A Zeilen zählen
i = i + 1
Debug.Print i
Loop
Do Until ActiveSheet.Range("K" & j).Value = "" 'Spalte K
j = j + 1
Debug.Print j
Loop
Do Until ActiveSheet.Cells(1, Sp).Value = "" 'In Zeile eins bei den Überschriften schauen
Sp = Sp + 1
Debug.Print Sp
Loop
If i > j Then 'so lange DB länger ist als Berechnung daneben
Cells(j - 1, 11).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Do Until i + 1 = j + 1 'bis die Zeilen gleich sind
ActiveSheet.Range(Cells(j - 2, 11), Cells(j - 2, Sp - 1)).Select 'ab Spalte K (= 11) Zeilen markieren bis letzte Spalte = Counter Sp
Selection.Copy
j = j + 1
Range(Cells(j - 2, 11), Cells(j - 2, Sp - 1)).Select
Selection.PasteSpecial xlPasteFormulas
Debug.Print j
Loop
End If
Application.ScreenUpdating = True
End Sub

Sub Formeln2()
Dim lngD As Long, lngF As Long, lngC As Long
lngD = Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A
lngF = Cells(Rows.Count, 11).End(xlUp).Row 'Spalte K
lngC = Cells(1, Columns.Count).End(xlToLeft).Column 'Zeile 1 - Anzahl Spalten
If lngD