Creating a new row problem

[SamT]

If Lr = 23 then Range("C" & lrTest - 1) = Range("C22")

Try

Range("C" & lrTest + 1).value = TextBox1.Text