Selecting rows based on cell value

[JamesFletcher]

Hi All,

As you can see, I have a macro to insert a new row, copy the formatting and formulae and then clear some cells.

Is there a way to make this code more universal?

I'd like it to select rows based on the number in a cell.

e.g. If cell A1 = 5, the macro would perform it's tasks on rows 5 and 6 instead of 31 and 32 like it currently does. I need it to be dynamic as the value in cell A1 will change.

Sub New_Spec_Notice()
'
' New_Spec_Notice Macro

'
    Rows("31:31").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Rows("32:32").Select
    Selection.AutoFill Destination:=Rows("31:32"), Type:=xlFillDefault
    Rows("31:32").Select
    Range("B31:J31").Select
    Selection.ClearContents
    Range("B31").Select
End Sub