simplifying macro coding (removing.select mostly)

hi everyone,
I need some help figuring out how to simplify some of my coding (i'm fairly new and still use a bunch of .select

the macro selects two rows from a template and pasts it into a report, then it autofilters data and copies visible cells over to paste below the template rows.
Here is what I use right now (the section only)

' insert the next lines from template (with space)
 Sheets("Report-template").Select
    Range("A6:I7").Select
    Selection.Copy
    Sheets("Full HP Report").Select
    Range("A4").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(3, 0).Select
    ActiveSheet.Paste

Sheets("worklist formatted").Select
 ActiveSheet.Range("$A$1:$Q$1000").AutoFilter Field:=6, Criteria1:= _
        "=Draw Rescheduled", Operator:=xlOr, Criteria2:="=Draw Scheduled"
' copy visible cells only for columns A through I
Range("A2:I2").Select
Range("A2:I500").SpecialCells(xlCellTypeVisible).Copy
' paste in second section
Worksheets("Full HP Report").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

How could I simplify this?

I'm also loosing some of the formatting when I paste the cells (certain rows are supposed to be bold but formatting is not copied)



Thank you