I have been kindly supplied with the following code that allows the Document User to define the number of rows to be inserted in a Worksheet.
Currently this code copies row 3 and pastes it the defined number of times beneath the last used row.
However I would like to tweak the code so that rather than pasting all of row 3 into the Worksheet I would like it to only paste the formulas from row 3.
Unfortunately my VBA is no where near good enough to work this one out so would anyone else have any ideas?
Sub InsertRows()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
<o
> </o
>
Dim lngRows As Long, lngNextRow As Long<o
></o
>
<o
> </o
>
On Error GoTo Finish<o
></o
>
<o
> </o
>
lngRows = CLng(InputBox("How many rows do you wish to insert?"))<o
></o
>
lngNextRow = Range("A" & Rows.Count).End(xlUp).Row + 1<o
></o
>
<o
></o
>
Rows(3).Copy Rows(lngNextRow & ":" & lngNextRow + lngRows - 1)<o
></o
>
<o
></o
>
Finish:<o
></o
>
If Err.Number <> 0 Then MsgBox Prompt:="Please ensure you only enter numeric values!"<o
></o
>
<o
> </o
>
End Sub<o
></o
>
Currently this code copies row 3 and pastes it the defined number of times beneath the last used row.
However I would like to tweak the code so that rather than pasting all of row 3 into the Worksheet I would like it to only paste the formulas from row 3.
Unfortunately my VBA is no where near good enough to work this one out so would anyone else have any ideas?
Sub InsertRows()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com




<o


Dim lngRows As Long, lngNextRow As Long<o


<o


On Error GoTo Finish<o


<o


lngRows = CLng(InputBox("How many rows do you wish to insert?"))<o


lngNextRow = Range("A" & Rows.Count).End(xlUp).Row + 1<o


<o


Rows(3).Copy Rows(lngNextRow & ":" & lngNextRow + lngRows - 1)<o


<o


Finish:<o


If Err.Number <> 0 Then MsgBox Prompt:="Please ensure you only enter numeric values!"<o


<o


End Sub<o

