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