Em bị lỗi gì trong đoạn code sau, nhờ các bác chỉ giúp

minhtuan0203

Thành viên mới
Tham gia ngày
21 Tháng mười hai 2012
Bài viết
1
Được thích
0
Điểm
363
Tuổi
33
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Rows("6:9").Select
Selection.Copy

Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("B10").Select
ActiveCell.Offset(rowOffset:=-5, columnOffset:=0).Activate
Application.CutCopyMode = False
Selection.Copy
Range("C10:C14").Select
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=6, columnOffset:=-1).Activate
Rows("6:9").Select
Selection.Copy
Rows("16:16").Select
Selection.Insert Shift:=xlDown
Range("B15").Select
'ActiveCell.Offset(rowOffset:=-10, columnOffset:=0).Activate
Application.CutCopyMode = False
Selection.Copy
Range("C15:C19").Select
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=6, columnOffset:=-1).Activate



End Sub
1578387949114.png
 
Top Bottom