This should do what you want. You didn't say if you wanted any data currently below row 1 to be overwritten or pushed down, so I've assumed pushed down.
Dim count As Long
count = CLng(Range("A1")) + 1
rows("2:" & count).Insert
Range("b1:g" & count).FillDown
