Como copiar datos de una hoja a otra según la condición

Quiero hacer una macro, donde en una hoja llamada base descargue los gastos de una persona y los copie y las pase a la hoja de su nombre, cuando coloque otro nombre los copie y los lleve a su hoja de su nombre, y que se hagan acomulativos.

También que se borre la captura en la primera hoja, para actaulizar los datos.

Anexo código

Sub copia()
Sheets(Base).Select
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "a2" Then
Luis = ActiveCell
Pedro = ActiveCell.Offset(0, 1)
Sheets(2).Select
Range("A65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = Luis
ActiveCell.Offset(0, 1) = Pedro
Sheets(1).Select
ActiveCell.Offset(1, 0).Select