Становитесь на строку в которой находится нужная информация и запускаете макос [vba]Код
Sub Perenos()
Dim Rng As Range, WS As Worksheet, L As Long
With ActiveCell: Set Rng = Range("A" & .Row & ":D" & .Row): End With
Set WS = Worksheets(Rng.Cells(1, 4).Text)
Rng.Resize(1, 3).Copy Destination:=WS.Range("A" & WS.Cells(Rows.Count, 1).End(xlUp).Row + 1)
WS.Columns("A:C").EntireColumn.AutoFit
End Sub
[/vba]
Если несколько раз нажмете на одной и той же строке, она перенесется несколько раз - проверки на дублирование нет. Листы должны называться так же, как и группы затрат (пока у Вас так и есть)
UPD добавил автоподбор ширины колонок