найдите первый пустой столбец и напишите туда вертикально

Question

Я пытаюсь заполнить рабочий лист из пользовательской формы, мне нужно заполнить столбец данными, а затем следующая транзакция будет go в столбце рядом с этим.

https://i.ibb.co/HhNQmTS/Capture.jpg

Когда я debug.print мою формулу, я действительно вижу последний столбец, но он продолжает перезаписывать себя.

Private Sub casa()
Dim lColumn As Long
Dim sh As Worksheet
lColumn = ActiveSheet.Cells(7, Columns.Count).End(xlToLeft).Column + 1
Debug.Print
Sheet47.Range("test").Cells(1).Value2 = TXTFECHA.Value
Sheet47.Range("test").Cells(2).Value2 = TXTIMPORTE.Value
Sheet47.Range("test").Cells(3).Value2 = TXTSUMCOM.Value
Sheet47.Range("test").Cells(4).Value2 = TXTSUBTOTAL.Value
Sheet47.Range("test").Cells(5).Value2 = TXTSUMIVA.Value
Sheet47.Range("test").Cells(6).Value2 = TXTSUMFACT.Value
Sheet47.Range("test").Cells(7).Value2 = TXTSUMCOM2.Value
Sheet47.Range("test").Cells(8).Value2 = TXTRETORNO.Value
Sheet47.Range("test").Cells(9).Value2 = TXTREMANTE1.Value
Sheet47.Range("test").Cells(10).Value2 = TXTSUMCOSTO.Value
Sheet47.Range("test").Cells(11).Value2 = TXTREMANTE2.Value
Sheet47.Range("test").Cells(12).Value2 = TXTCOSTOINTERNO.Value
Sheet47.Range("test").Cells(13).Value2 = TXTREMANTE3.Value
Sheet47.Range("test").Cells(15).Value2 = TXTSUMComisionista1.Value
Sheet47.Range("test").Cells(16).Value2 = TXTSUMComisionista2.Value
Sheet47.Range("test").Cells(17).Value2 = TXTSUMCOM3.Value
Sheet47.Range("test").Cells(18).Value2 = TXTSUMYT.Value
Sheet47.Range("test").Cells(19).Value2 = TXTSUMComisionista3.Value
Sheet47.Range("test").Cells(20).Value2 = TXTSUMComisionista4.Value
End Sub

Как я могу это сделать ??