Variable row selection

[diegogda]

Hello:

I want to select an entire row and I have already recorded a macro but the range will vary depending on the file:

    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows("73060:1048576").Select
    Selection.ClearContents
    Range("A2").Select
End Sub

How can I set a variable range from the selected rows instead of 73060:1048576?

Thanks!

 

[Fluff]

Maybe

   Selection.End(xlDown).Offset(1).Select
   Rows(ActiveCell.Row & ":" & Rows.Count).ClearContents
   Range("A2").Select

 

[diegogda]

I changed it up a bit and now it works:

    Selection.End(xlDown).Offset(1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows(ActiveCell.Row & ":" & Rows.Count).Select
    Selection.ClearContents
    Range("A2").Select
End Sub

Thank you very much!!!

 

[Fluff]

Glad to help & thanks for the feedback.

 

[Peter_SSs]

I changed it up a bit and now it works:

    [COLOR="#0000CD"][B]Selection.End(xlDown).Offset(1).Select
    Range(Selection, Selection.End(xlDown)).Select
    Rows(ActiveCell.Row & ":" & Rows.Count).Select
    Selection.ClearContents[/B][/COLOR]
    Range("A2").Select
End Sub

Whilst it works fine, note that you rarely need to select things in vba to work with them and selecting generally slows your code.
I think the following single line of code could replace all those blue lines without selecting anything

Rows(Selection.End(xlDown).Row + 1 & ":" & Rows.Count).ClearContents