How do I add values to cells at the end of a row I just inserted through my VB code

[p45cal]

Dim RowToPasteTo As Long
or just:
Dim RowToPasteTo