Macro problem
 

I have had someone write me a macro as below. This basically copies the top
10 numbered rows from Sheet 1 and pastes into Sheet 3. However it pastes the
rows starting from Row 1 in Sheet 3 therfore not allowing me to put any
column headings/titles etc. in Sheet 3. I need the info to be pasted from row
8 and below rather than row 1. Any help?

Sub MyMacro()
Dim lngRow As Long, ws As Worksheet, lngNRow As Long
Set ws = Sheets("Sheet3")
For lngRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & lngRow) 0 And Range("A" & lngRow) <= 10 Then
lngNRow = lngNRow + 1: Rows(lngRow).Copy ws.Rows(lngNRow)
End If
Next
End Sub

Macro problem
 

Hi,

Note the very minor change to the last line befor end if

Sub MyMacro()
Dim lngRow As Long, ws As Worksheet, lngNRow As Long
Set ws = Sheets("Sheet3")
For lngRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & lngRow) 0 And Range("A" & lngRow) <= 10 Then
lngNRow = lngNRow + 1: Rows(lngRow).Copy ws.Rows(lngNRow + 7)
End If
Next
End Sub

Mike

"The Message" wrote:

I have had someone write me a macro as below. This basically copies the top
10 numbered rows from Sheet 1 and pastes into Sheet 3. However it pastes the
rows starting from Row 1 in Sheet 3 therfore not allowing me to put any
column headings/titles etc. in Sheet 3. I need the info to be pasted from row
8 and below rather than row 1. Any help?

Sub MyMacro()
Dim lngRow As Long, ws As Worksheet, lngNRow As Long
Set ws = Sheets("Sheet3")
For lngRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & lngRow) 0 And Range("A" & lngRow) <= 10 Then
lngNRow = lngNRow + 1: Rows(lngRow).Copy ws.Rows(lngNRow)
End If
Next
End Sub

Macro problem
 

Thanks Mike, I knew it would be something simple like that but very
inexperienced at Macro's so normally need help. Thanks a lot!

"Mike H" wrote:

Hi,

Note the very minor change to the last line befor end if

Sub MyMacro()
Dim lngRow As Long, ws As Worksheet, lngNRow As Long
Set ws = Sheets("Sheet3")
For lngRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & lngRow) 0 And Range("A" & lngRow) <= 10 Then
lngNRow = lngNRow + 1: Rows(lngRow).Copy ws.Rows(lngNRow + 7)
End If
Next
End Sub

Mike

"The Message" wrote:

I have had someone write me a macro as below. This basically copies the top
10 numbered rows from Sheet 1 and pastes into Sheet 3. However it pastes the
rows starting from Row 1 in Sheet 3 therfore not allowing me to put any
column headings/titles etc. in Sheet 3. I need the info to be pasted from row
8 and below rather than row 1. Any help?

Sub MyMacro()
Dim lngRow As Long, ws As Worksheet, lngNRow As Long
Set ws = Sheets("Sheet3")
For lngRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & lngRow) 0 And Range("A" & lngRow) <= 10 Then
lngNRow = lngNRow + 1: Rows(lngRow).Copy ws.Rows(lngNRow)
End If
Next
End Sub