from the bottom up...

[tourless]

Hi Folks,

I'm looking for a snip of a macro that will look to column Q, from the last row up, and when it no longer encounters the value 'Q', add a row above that last instance. My list is already sorted but the major requirement is to search from the last row up.

 

[MARK858]

from the last row up, and when it no longer encounters the value 'Q', add a row above that last instance

That reads like you are looking for the first instance of "Q" in column Q. Do you actually mean that you want to insert a row above the last instance of "Q" in column Q?

 

[tourless]

That reads like you are looking for the first instance of "Q" in column Q. Do you actually mean that you want to insert a row above the last instance of "Q" in column Q?

That is correct Mark. It just so happens that cells in column Q contain either 'A' or 'Q' for their values.

 

[MARK858]

Columns("Q").Find("Q", , xlValues, , xlRows, xlPrevious).EntireRow.Insert

 

[MARK858]

Please note if by contains you mean there is other data in the cell other than "Q" Then you need to explain what the data looks like.

 

[tourless]

I'm really bad at describing my problem. Your code work perfectly and did exactly what I asked, but what I asked isn't exactly what I needed. My data is made up of two sets of data, the first set contains information for customers that started in 2018, of which there can and are instances of Q mixed in with A in column Q. The second data set is made up of only customers where the value in column Q will be Q. So it looks sort of like this...

A - 1st set result
A - 1st set result
A - 1st set result
Q - 1st set result
A - 1st set result
A - 1st set result
Q - 1st set result
A - 1st set result
Q - 2nd set result
Q - 2nd set result
Q - 2nd set result
Q - 2nd set result
Q - 2nd set result

What I actually needed was to find the first instance of A in column Q and insert a row before that...

A - 1st set result
A - 1st set result
A - 1st set result
Q - 1st set result
A - 1st set result
A - 1st set result
Q - 1st set result
A - 1st set result

Q - 2nd set result
Q - 2nd set result
Q - 2nd set result
Q - 2nd set result
Q - 2nd set result

I was able to accomplish this by tweaking your code to this...

Columns("Q").Find("A", , xlValues, , xlRows, xlPrevious).Offset(1).EntireRow.Insert Shift:=xlDown

Thank you Mark.

 

[MARK858]

Ignore as what you call first, I call last. Btw the default for entirerow.insert is shift:=xldown so you didn't need to add that part.