Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+q
Sheets("hoa don").Select
Range("A8:F20").Select
Selection.Copy
Sheets("Sheet1").Select
ir = Range("A" & Rows.Count).End(xlUp).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("hoa don").Select
Application.CutCopyMode = False
End Sub
vì sao dòng lệnh ir = Range("A" & Rows.Count).End(xlUp).Row của em lúc dùng được lúc lại không nhỉ? tiền hành thử copy nhiều lần liên tục thì cùng paste nó nhảy lung tung không đúng ý định của mình.