Can this 'append' macro be improved on

If your inner loop is counting blank cells, use c = Application.WorksheetFunction.CountA instead.

And you could maybe use AutoFilter to limit the outer loop.

No data, no can test ... or even assess whether or not the approach is viable.