Finalizing MACRO

Hello,

I've tired to work with this MACRO but I am trying to combine the content in order for it to work yet I keep getting bugs.
The purpose of this is to pick certain information from sheet 1 and transfer it to sheet 2 in the last rows available.

Sub Update()
Dim faRow, x As Integer

x = ActiveCell.Row
faRow = Sheets("Total").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

Range("B" & x).Copy Sheets("Total").Range("A" & faRow)
Range("D" & x).Copy Sheets("Total").Range("B" & faRow)
Range("I" & x).Copy Sheets("Total").Range("C" & faRow)

End Sub


To copy row from A to last column used (based on the first row) use:
Dim lCol As Integer
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(x, "A"), Cells(x, lCol)).Copy