VBA excel segítség?

Ez csak egy tesztelés még, de belinkelem amit eddig készítettem:

Private Sub worksheet_change(ByVal Target As Range)

x = 1

If Cells(x, 4) <> Empty Then

With Cells(x + 1, 4).Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Cells(x + 1, 4).Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Cells(x + 1, 4).Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

ElseIf Cells(x, 4) = Empty Then

Cells(x + 1, 4).Borders(xlEdgeLeft).LineStyle = xlNone

Cells(x + 1, 4).Borders(xlEdgeBottom).LineStyle = xlNone

Cells(x + 1, 4).Borders(xlEdgeRight).LineStyle = xlNone

End If

End Sub

A lényege az, hogy adott egy bekeretezett cella. Ha azt kitöltöm, akkor a bekeretezett cella alatt megjelenik egy újabb bekeretezett cella.

Azt viszont nem tudom hogyan kell megoldani, hogy ez automatikusan történjen akár a "végtelenségig", magyarul hogyha a második cellába (ami létrejött ez alapján) újabb adat kerül, akkor egy további harmadik bekeretezett cella jelenlen meg, és így tovább.

Szóval az x=1 helyére kéne nekem valami olyan cilus, amely megtalálja mindig a legutolsó sort.