Formatting of pasted row via VBA

Hi all

I have the current code:

Sub addallrows()

Dim divrow As Long
Dim arearow As Long
Dim notoppd As Long

For divrow = Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
    If Cells(divrow, "E") <> Cells(divrow - 1, "E") Then
        Cells(divrow, "E").EntireRow.Insert
        Cells(divrow, "A").Value = Cells(divrow + 1, "E").Value
End If

Next divrow

For arearow = Cells(Rows.Count, "G").End(xlUp).Row To 3 Step -1
If Cells(arearow, "G") <> Cells(arearow - 1, "G") Then
        Cells(arearow, "G").EntireRow.Insert
        Cells(arearow, "A").Value = Cells(arearow + 1, "G").Value
End If

Next arearow

For notoppd = Cells(Rows.Count, "E").End(xlUp).Row To 3 Step -1
If Cells(notoppd, "E") <> "Adults/Phys Dis/Older People" Then
        Cells(notoppd, "H").Value = Cells(notoppd, "F").Value
        
End If

Next notoppd

Columns("E:G").Select
Selection.Delete Shift:=xlToLeft
Range("A2").Select

End Sub

Where rows are inserted, can I stop them from copying the formatting from the row above??

Also, I would like the text that is pasted into the cell A (for divrow and arearow) to be left aligned and bold.

Can someone help?