Creating a new row problem

[luizmachado]

I thinking of use IsEmpty function. But the code below is filling the lastrow - 1 (that's ok) and then creating another row (that's what I'm trying to avoid). I'd like this to have only rows that are filled, I mean, no extra blank row.


This is the code I've just tried:

Private Sub submit_Click()

Dim lrTest As Long

'Count last row
lrTest = Sheets("Monthly Expenses").Range("B" & Rows.Count).End(xlUp).Row
If IsEmpty(Range("C" & lrTest - 1)) Then
'Description TextBox
Range("C" & lrTest - 1).value = TextBox1.Text
End If
'Resize table row from B21 to J on the last row
ActiveSheet.ListObjects("Table1").Resize Range("$B$21:$J$" & lrTest + 1)
End Sub

Ps: sorry for "double posting". I'm just trying to help you guys to help me.