With the help of the online Microsoft team they have provided me with the
following Macro which is transferring data from Sheet 1 to Sheet 3. All I
need to do is display this data from Cell A8 onwards. At present the Macro is
copying everything onto sheet 3 from cell A1 onwards, which is not allowing
me to put any column titles in place. Can you help?

Sub Risks()
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

one change do it i think

For lngRow = 8 To Cells(Rows.Count, "A").End(xlUp).Row

"The Message" wrote in message
...
| With the help of the online Microsoft team they have provided me with the
| following Macro which is transferring data from Sheet 1 to Sheet 3. All I
| need to do is display this data from Cell A8 onwards. At present the Macro
is
| copying everything onto sheet 3 from cell A1 onwards, which is not
allowing
| me to put any column titles in place. Can you help?
|
| Sub Risks()
| 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

Thanks for that Homey, but I'm afriad that change simply puts rows 8,9 and 10
into Rows 1,2,&3 on sheet 3

"Homey" wrote:

one change do it i think

For lngRow = 8 To Cells(Rows.Count, "A").End(xlUp).Row

"The Message" wrote in message
...
| With the help of the online Microsoft team they have provided me with the
| following Macro which is transferring data from Sheet 1 to Sheet 3. All I
| need to do is display this data from Cell A8 onwards. At present the Macro
is
| copying everything onto sheet 3 from cell A1 onwards, which is not
allowing
| me to put any column titles in place. Can you help?
|
| Sub Risks()
| 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

.

lngNRow = lngNRow + 1: Rows(lngRow).Copy ws.Rows(lngNRow + 7)

Will put rows 1:10 from Sheet1 into rows 8:17 in Sheet3


Gord Dibben MS Excel MVP


On Mon, 7 Dec 2009 06:12:01 -0800, The Message
wrote:

Thanks for that Homey, but I'm afriad that change simply puts rows 8,9 and 10
into Rows 1,2,&3 on sheet 3

"Homey" wrote:

one change do it i think

For lngRow = 8 To Cells(Rows.Count, "A").End(xlUp).Row

"The Message" wrote in message
...
| With the help of the online Microsoft team they have provided me with the
| following Macro which is transferring data from Sheet 1 to Sheet 3. All I
| need to do is display this data from Cell A8 onwards. At present the Macro
is
| copying everything onto sheet 3 from cell A1 onwards, which is not
allowing
| me to put any column titles in place. Can you help?
|
| Sub Risks()
| 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

.