VBA to select columns for range

[RChapman9]

I have a pivot table with inventory reports for a number of schools. I need to copy each school's section individually from a pivot table and paste on another sheet. Once I find the starting point for a particular school, I can use xlDown to set the correct number of rows. However, I need the "Range("A5:N5")" to be dynamic, based on the starting point. I can't use xlRight because not all the columns are filled. If the starting point is A5, how do I tell it to select A5:N5? For A18, how to select A18:N15, etc?

    Range("A5:N5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Range("A18:N18").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Sheets("Solutions by Location (2)").Select

Thanks so much!!

 

[RChapman9]

Nice, more efficient than my tweak! Thank you again!!!