quick VBA question on selection

[deletedalien]

So i know that the lines in red are wrong because they do random things every time i run this code, and i can't remember how to do this

First error line
i want to select from row 2 columns A:V and all the way down and delete that data (but sometimes it also deletes whats in column W.....

The second error line
only selects rows 4 & 5 from columns A:V....

Sub Centris()


    ActiveSheet.Previous.Select
    Range("A2:V2", Selection.End(xlDown)).ClearContents
    
    Selection.End(xlToLeft).Select
    
    ActiveWindow.ActivateNext
    
    Range("A5:V5", Selection.End(xlDown)).copy
    
    ActiveWindow.ActivateNext
    
    Range("A2").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    
End Sub

Thankx in advance for any help given.

 

[Rick Rothstein]

First error line
i want to select from row 2 columns A:V and all the way down and delete that data (but sometimes it also deletes whats in column W.....

    Range("A2:V2", Selection.End(xlDown)).ClearContents

Assuming Column A contains data in the last row with data in Columns A:V...

Range("A2:V" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents

The second error line
only selects rows 4 & 5 from columns A:V....

    Range("A5:V5", Selection.End(xlDown)).copy

Assuming Column A contains data in the last row with data in Columns A:V...

Range("A5:V" & Cells(Rows.Count, "A").End(xlUp).Row).Copy

 

[deletedalien]

Brilliant as always...

Thank you VERY much!