Just to help anyone else looking for this I used the following code:
Sub VisbleCellsPasting()
On Error Resume Next
Dim aRng As Range
Dim aC As Long
Dim i As Long
Dim aRn As Range
Dim bRng As Range
Dim brn As Range
Dim tRn As Range
Dim wk As Worksheet
Dim ak As Worksheet
Application.DisplayAlerts = False
Set ak = ActiveSheet
Set aRng = ak.Range("O2:O6").SpecialCells(xlCellTypeVisible)
Range("c7").Select
For Each aRn In aRng
Set bRng = ActiveCell
If bRng.EntireRow.Hidden = False Then
bRng = aRn
bRng.Offset(1).Select
Else
Do
If ActiveCell.EntireRow.Hidden = True Then
ActiveCell.Offset(1).Select
End If
Loop Until ActiveCell.EntireRow.Hidden = False
ActiveCell = aRn
ActiveCell.Offset(1).Select
End If
Next
End Sub
Cheers!
Bookmarks