VBA coding - copy paste to next open cell

[leftee96]

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

[Steffen Thomsen]

Try using

Range("A65000").End(xlUp).Offset(1,0)

[leftee96]

I'm sorry. Am I replacing any existing code with that or inserting it? I tried it a couple different ways and it gives me an error.

[leftee96]

Hi - I just wanted to let you know that I figured it out and it works GREAT... so far. Thank you so much for the quick turnaround and the help. I really appreciate it.

[Steffen Thomsen]

Your welcome!

If your question has ben answered, then please mark your thread as solved according to the forum rules

Steffen Thomsen