Bạn tham khảo nhé!
=====
Option Explicit
Sub UpdateSolieu()
'KHAI BAO BIEN
Dim wksSource As Worksheet, wksDest As Worksheet
Dim lastCol As Integer
Set wksSource = ActiveWorkbook.Sheets("DUTRU")
Set wksDest = ActiveWorkbook.Sheets("SOLIEU")
'TIM VI TRI COT CUOI CUNG CO DU LIEU
lastCol = wksDest.Cells(2, Columns.Count).End(xlToLeft).Column
'SAO CHEP & DAN DU LIEU COT BEN CANH
wksSource.Range("B4:B11").Copy
wksDest.Range(wksDest.Cells(2, lastCol + 1), wksDest.Cells(11, lastCol + 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
End Sub
