Copy/Pasting Values from visible cells (using autofilter) to visible cells

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!