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

[p45cal]

RowToPasteTo = Worksheets("Audit").UsedRange.Rows.Count + 1
Worksheets("Audit").Range("A" & RowToPasteTo).PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Audit").Range(RowToPasteTo, 77).Value = Date
Worksheets("Audit").Range(RowToPasteTo, 78).Value = Time
Worksheets("Audit").Range(RowToPasteTo, 79).Value = Application.UserName