Loop to last populated cell in row

I'm looking for a smarter way to run a macro that copies elements of a filtered list to a table.

The loop currently runs to the defined end column (70) however the actual last populated cell could be in column 30, but it continues to loop though the empty cells.

I'd like it to stop looping through once it finds the last value in that particular row. I did try End(xlToLeftRight) but not sure of the syntax.

The relevant code is:

Please Login or Register  to view this content.

The line I'm interested in is

Please Login or Register  to view this content.

Can someone point me in the right direction please?

Please Login or Register  to view this content.

Please Login or Register  to view this content.

This didn't copy any data across, however

Please Login or Register  to view this content.

does copy the data, however if there is a blank column within the range followed by a populated column, the code terminates at the first blank column.

I might have left out a subsequently important detail in my original post....

The column headings (row 1) are dates and are all populated. The rows underneath (row 2 to end) may or may not contain values. So there could be entries within June and then nothing until December, where the next three months have entries.

Would it be better to forget the skipping of empty cells, and instead to copy the entire filtered range?
So start at N2 to end of filtered range?

As the code specifies

Please Login or Register  to view this content.

then can we get lastrow and define the range from $N$2 to end to copy?

Maybe use another variable?

Please Login or Register  to view this content.

I've used the following

Please Login or Register  to view this content.

Is

Please Login or Register  to view this content.

cleaner/ more efficient code to use?

Please Login or Register  to view this content.

The code goes down to the last non-empty value in column A, so it does not stop if there is empty between 2 rows.

Did you test them both?

I ran both sets 5x each and got the following times:

Please Login or Register  to view this content.

Gave an average result of 4 minutes and

Please Login or Register  to view this content.

gave an average of 30 seconds.

I also run the following before each:

Please Login or Register  to view this content.

Should there really be such a difference?

What is I?
Yes, the code will be slow as you are using active cell and active workbook.
Why do you need to loop? Please attach your sample to see what is going?

Attached is the full workbook - the names have been changed to protect the innocent!

Sheet 1, DATA is the whole of the source data
Project Select uses the SelectProject.group module
By Team uses showteam.byteam and showname.name_data modules.