Runtime error 1004

Whenever I run the micros, I get a runtime error 1004. And when I debug it the following shows:

Sub datacheckingstudy()
'
' datacheckingstudy Macro
' formatting for  data for read aloud and visual checking for scoring in SPSS
'
' Keyboard Shortcut: Ctrl+k
'
    Rows("4:5").Select
    With Selection.Interior
      .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.ColumnWidth = 14.29
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Participant ID"
    Range("B1").Select
    Columns("B:B").ColumnWidth = 9
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Part "
    Range("F2").Select
    Selection.Copy
    Range("A2").Select
    ActiveSheet.Paste
    Range("A3").Select
    ActiveSheet.Paste
    Range("A4").Select
    ActiveSheet.Paste
    Range("A5").Select
    ActiveSheet.Paste
    Range("A6").Select
    ActiveSheet.Paste
    Range("F2").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "Part 1"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "Part 1"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "Part 1"
    Range("B5").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "Part 1"
    Range("B6").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "Part 1"
    Range("C2").Select
    Selection.ClearContents
    Range("C1:AJ4").Select
    Selection.Delete Shift:=xlUp
End Sub

Any help would be appreciated. Thank you.