Applying Conditional formatting to newly inserted rows in a table

[stroffso]

I have some code below which inserts rows into a table. However the table has codnitional formatting in there and when I add the rows it loses the conditional format, is there some code I can add to the below that adds the conditional formatting to the rows that have just been inserted, or if it helps I just need to copy the formatting in row 8 to the newly inserted rows, thanks

Sub Insert_Rows()
'Modified 6/20/18 3:00 AM EDT
Application.ScreenUpdating = False
'Dim ans As String
'Dim anss As string
ans = InputBox("Insert row starting on row ??")
If ans = "" Then MsgBox "You entered no row to start on" & vbNewLine & " I will now stop this script": Exit Sub
anss = InputBox("Insert how many rows ??")
If anss = "" Then MsgBox "You entered no number of rows to insert" & vbNewLine & " I will now stop this script": Exit Sub
Rows(ans).Resize(anss).Insert
Application.ScreenUpdating = True
End Sub

 

[stroffso]

Anyone got any ideas on this one?

I have some code below which inserts rows into a table. However the table has codnitional formatting in there and when I add the rows it loses the conditional format, is there some code I can add to the below that adds the conditional formatting to the rows that have just been inserted, or if it helps I just need to copy the formatting in row 8 to the newly inserted rows, thanks

Sub Insert_Rows()
'Modified 6/20/18 3:00 AM EDT
Application.ScreenUpdating = False
'Dim ans As String
'Dim anss As string
ans = InputBox("Insert row starting on row ??")
If ans = "" Then MsgBox "You entered no row to start on" & vbNewLine & " I will now stop this script": Exit Sub
anss = InputBox("Insert how many rows ??")
If anss = "" Then MsgBox "You entered no number of rows to insert" & vbNewLine & " I will now stop this script": Exit Sub
Rows(ans).Resize(anss).Insert
Application.ScreenUpdating = True
End Sub