Any Suggestions on Optimizing My First VBA Code?

Hi,

Below is the first VBA code I have created individually, but it seems "slow."

Any suggestions oh how to revise for optimization?

Sub Iteration()

' Insert New Row
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

' Copy Subcontractor
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

' Generate New Number
    ActiveCell.Offset(-1, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault

' Copy Spec Division
    ActiveCell.Range("A1:A2").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

' Copy Division Title
    ActiveCell.Offset(-1, 1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    
' Copy Spec Section
    ActiveCell.Offset(-1, 1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

' Copy Section Title
    ActiveCell.Offset(-1, 1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

' Copy Submittal
    ActiveCell.Offset(-1, 1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    
' Generate New Status
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "UNS"
    
' Copy Spec Verbiage
    ActiveCell.Offset(-1, 6).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    
' Exist Copy/Paste Sequence
    Application.CutCopyMode = False
    
' Hide Old Row
    ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
    Selection.EntireRow.Hidden = True
    
' Return to Start of Next Row
    ActiveCell.Offset(1, 0).Range("A1").Select

End Sub

If any additional information is needed, please let me know.

Thanks,

TW