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

[minhtuan0203]

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