Macro to update list to last row on another sheet copy source from multiple sheets

[Azamamir]

Hi Excel people out there, I need help on macro as I am totally new on this.

Basically, I have a summary list (I named it UpdTable) and also data on multiple sheets (SumBankBal, Affin, BIMB, HLB). I need to copy certain information from few cells of these sheets to the summary list (UpdTable) to the last row of the list. There also formulas on few columns in this list.

But my problem is that it keeps on updating on the existing line of the list which I do not know how to change it. I truly hope that someone experts out there could help me simplify this. Thanking everyone in advance.

Below is what I recorded on my macro.

Sub Update()
'
' Update Macro
' Update Table
'
' Keyboard Shortcut: Ctrl+Shift+L
'

With ActiveCell.EntireRow
.Copy
.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
On Error Resume Next
.Offset(1).SpecialCells(xlCellTypeConstants).Clear
On Error GoTo 0

Sheets("SumBankBal").Select
Range("C2").Select
Selection.Copy
Sheets("UpdTable").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("AFFIN").Select
Range("C21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("B22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("AFFIN").Select
Range("E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("C22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("AFFIN").Select
Range("F21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("D22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("AFFIN").Select
Range("G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("E21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("AFFIN").Select
Range("K8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("F22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("BIMB").Select
ActiveWindow.SmallScroll Down:=0
Range("U6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("I22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("BIMB").Select
Range("U7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("J22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("BIMB").Select
Range("U8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("K22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("BIMB").Select
Range("Q21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("L21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("HLB").Select
Range("V6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("O22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("HLB").Select
Range("V7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("P22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("HLB").Select
Range("R21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("UpdTable").Select
Range("Q21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End With


End Sub