Transfer Data Macro

[Loisw]

Hi

i have the following macro which transfers credit control data from an outstanding tab to a paid tab:

Option Explicit
Sub transfer()
Dim x As Integer
Dim y As Integer
y = 13
Do While Left(Worksheets("paid").Cells(y, 20), 1) = "P"
    y = y + 1
Loop
For x = 13 To 42
    If Left(Cells(x, 20), 1) = "P" Then
        Worksheets("paid").Range(Worksheets("paid").Cells(y, 1), Worksheets("paid").Cells(y, 20)).Value = Range(Cells(x, 1), Cells(x, 20)).Value
        y = y + 1
    End If
Next x
End Sub

I was wondering if it can be modified so that any macros that are transfered from outstanding to paid tabs are deleted from the outstanding tab & the same amount of new rows added to the outstanding tab as were deleted?

Also, there is a total on row 41 of the paid tab. Can it be set so that it doesnt paste the rows over the top of the total?

Your help would be greatly appreciated!

thanks