Creating a macro for next empty row

[tommyl18]

Hi would you please be as kind as to help me create a macro on my attached workbook to find the next empty row in the table for data input

[tommyl18]

Is it better to use a macro to insert a new row rather than find the next empty row in a table?

[mdmackillop]

Sub TransferData()
Dim Source As Range, Target As Range
Set Source = Range("H1").End(xlDown).CurrentRegion
Set Target = Cells.Find("Total Expenses").End(xlUp)(2)
Source.Copy
Target.PasteSpecial Paste:=xlPasteValues
Source.ClearContents
Application.CutCopyMode = False
End Sub