Hi All,

Hopefully you can help me. I have tried writing some VBA and failing quite poorly, before this I had written a filter for the information but now need to get it into another worksheet.

Here is the code I have written, I have no idea where I have gone wrong!

Sub Copy_Paste_Rota()
On Error GoTo ErrorHandler
Dim i As Long

i = 3


If InStr(1, ActiveSheet.Range(i, 2).Value, "Off", vbTextCompare) = 0 Then
Range(i, 2).Select

Selection.Copy

Application.Goto ActiveWorkbook.Sheets("Sheet3").Cells(4, 2)
Selection.Paste
ElseIf InStr(1, ActiveSheet.Range(i, 2).Value, "Hol", vbTextCompare) = 0 Then
Else
End If
Exit Sub

ErrorHandler:
MsgBox Err.Number & ": " & Error.Description


End Sub
Thanks in advance,

Danny