Hi, I am trying to copy and paste information from one worksheet to another. the beginning cell reference is the same but I need to be able to find the next available cell and paste additional information. I have everything I need except one piece. When I use the selection.end (xlDown).Select, it goes the the cell 65,5536. Can someone help, Please? Thank you very much. My code looks like this - 

'Denver
Dim rng2 As Range

Sheet1.Select
    Range("K9:N9").Select
    Selection.AutoFilter
    ActiveSheet.Range("K:N").AutoFilter Field:=1, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor
    Selection.SpecialCells (xlCellTypeVisible)
    
With Sheet1
    .AutoFilter.Range.Offset(1, 0).Copy
End With
    
    Sheet8.Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheet1.Select
    Application.CutCopyMode = False
    If ActiveSheet.AutoFilterMode = True Then
        ActiveSheet.AutoFilterMode = False
End If