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