Como borrar una información una vez copiada en una hoja

En el siguiente macro, quiero que al cambiar una de las características "PAGO" o "TRANSFERENCIA" me borre del otro archivo esa información

Private Sub Worksheet_Change(ByVal Target As Range)'Por.Dante Amor'TRANSFERENCIA    If Not Intersect(Target, Range("G:H")) Is Nothing Then        If Target.Count > 1 Then Exit Sub        If UCase(Cells(Target.Row, "G")) = "PAGO" And _           UCase(Cells(Target.Row, "H")) = "TRANSFERENCIA" Then            '            Application.ScreenUpdating = False            Set l2 = Workbooks("FACT CANC ABRIL 2015.xlsm")            Set h2 = l2.Sheets("TRANSFERENCIA")            u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1            Range("B" & Target.Row & ":F" & Target.Row).Copy            h2.Range("D" & u).PasteSpecial Paste:=xlPasteValues            Application.CutCopyMode = False            End If    End If'CHEQUE    If Not Intersect(Target, Range("G:H")) Is Nothing Then        If Target.Count > 1 Then Exit Sub        If UCase(Cells(Target.Row, "G")) = "PAGO" And _           UCase(Cells(Target.Row, "H")) = "CHEQUE" Then            '            Application.ScreenUpdating = False            Set l2 = Workbooks("FACT CANC ABRIL 2015.xlsm")            Set h2 = l2.Sheets("CHEQUE")            u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1            Range("B" & Target.Row & ":F" & Target.Row).Copy            h2.Range("D" & u).PasteSpecial Paste:=xlPasteValues            Application.CutCopyMode = False            End If    End If'EFECTIVO    If Not Intersect(Target, Range("G:H")) Is Nothing Then        If Target.Count > 1 Then Exit Sub        If UCase(Cells(Target.Row, "G")) = "PAGO" And _           UCase(Cells(Target.Row, "H")) = "EFECTIVO" Then            '            Application.ScreenUpdating = False            Set l2 = Workbooks("FACT CANC ABRIL 2015.xlsm")            Set h2 = l2.Sheets("EFECTIVO")            u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1            Range("B" & Target.Row & ":F" & Target.Row).Copy            h2.Range("D" & u).PasteSpecial Paste:=xlPasteValues            Application.CutCopyMode = False            End If    End IfEnd Sub

Gracias