Why is my cut and paste marco not working?

[VKD]

I have got a macro to work using a click button that will cut and paste data based on a specific cell value into a new worksheet. However I want to cut and paste more than one line, it is doing this but it keeps putting the pasted cells in the same row, eg if I have three rows to cut and paste it pastes them all onto one row (which means you are left with just the final row) and deletes all the other rows. Basically I want it to work through the sheet and cut and paste all the relevent data to the first blank cells available in a different worksheet.

Here's my code if that helps
Lasta = FindLastRowInMultiRange(DataPage, 1, 83, FirstRowWorkbank, 65536)
ThisWorkbook.Sheets(ArchivePage).Activate
apasterow = FindLastRowInMultiRange(ArchivePage, 1, 89, FirstRowArchive, 65536)

ThisWorkbook.Sheets(DataPage).Activate
For lngRowCounter = Lasta To 1 Step -1

If ASourcePg.Cells(lngRowCounter, "Q").Value = "Yes" Then
apasterow = apasterow + 1
ArchivePg.Rows(apasterow).FormulaR1C1 = ASourcePg.Rows(Lasta).FormulaR1C1
ASourcePg.Rows(lngRowCounter).Delete
End If
Next lngRowCounter

 

[Brianwarnock]

This should be in the EXCEL forum