Makro mit Do Until Loop modifizieren

das folgende Makro möchte ich in eine Do Until Loop- Schleife
einbinden.

Sub Start_Makro()
If Cells(53, 25) <> "" Then Call TabAbs1_11
If Cells(49, 25) <> "" Then Call TabAbs1_10
If Cells(45, 25) <> "" Then Call TabAbs1_9
If Cells(41, 25) <> "" Then Call TabAbs1_8
If Cells(37, 25) <> "" Then Call TabAbs1_7
If Cells(33, 25) <> "" Then Call TabAbs1_6
If Cells(29, 25) <> "" Then Call TabAbs1_5
If Cells(25, 25) <> "" Then Call TabAbs1_4
End Sub

Kann mir jemand helfe?

Vielen Dank.

Grüße