For Loop horizontal

Sub Zähler_füllen()
Dim wb As Workbook
Dim wsQ As Worksheet
Dim Sheet As Worksheet
Dim lZQ, lSQ As Long
Dim i As Integer
Set wb = ThisWorkbook
Set wsQ = wb.Worksheets("Counttest")
lZQ = wsQ.Cells(wsQ.Rows.Count, 1).End(xlUp).Row
lSQ = wsQ.Cells(1, wsQ.Columns.Count).End(xlToLeft).Column
wsQ.Select
a = 2
For i = 6 To lZQ
If Cells(6, 2) = "" Then
Cells(i, 2).Value = 0
Else
If Cells(i, 2) = "" And Cells(i - 1, 2)  "" Then
Cells(i, 2).Value = Cells(i - 1, 2)
End If
End If
Next i
End Sub