Cho mình hỏi bị lỗi gì ạ 
Sub insert_row()
Dim i As Integer
For i = 1 To 70
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
Range("A75
75", "m75:p75").Select
Selection.Copy Range("a5:d74", "m5:p74")
Range("E5:L74").Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("e5:l74").Value = ""
Worksheets("Copy Data").Range("b4:g73").Select
Selection.Copy
ActiveSheet.Range("e5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("e5").Select
Application.CutCopyMode = False
End Sub
