Paste in next blank row

[monkeypants]

Hi guys,

I can't quite fathom out how to paste the results of a stage 2 query in the next blank row after the results of the stage 1 query have been pasted.

File and code attached. The offending line of code is marked with **

Many Thanks in advance.

[MarvinP]

Hi monkeypants,

Here is the code that finds the first blank in a column:

Dim LastRow as Double

LastRow = Cells(Rows.Count,"A").End(xlUp).Row + 1

The line above uses Rows.Count which is at the bottom of the worksheet. Do a Control down arrow a bunch of times and you will get there. Older Excel and Newer Excel have a different max number of Rows.
Then the "A" tell which column you want to look for that last piece of data.
The End(xlUp) is like pressing a Control Up Arrow when at the bottom. This will stop when it hits the first non blank cell. One row below this is the first blank row. That is the +1 part.

Hope this helps and is what you were looking for.

[monkeypants]

Thanks Marvin, that worked very well.

One slight problem which is undoubtedly due to the way the code is written.
On the Expenses tab, there are no entries in August 2015, but when selecting 1/8/15 in cell G1 on the total tab, it appends all of the entries from the expenses tab.

An updated version of the file is attached.

[monkeypants]

File attached this time...

[monkeypants]

I resolved it by inserting an error handler into the code.