rearranging data from one workbook to another

[lcastanheiro]

I'm hoping someone can help me.

I have a worksheet where I record expenses (worksheet A) as they happen, then i need to submit the report that arranges the data in another format. How do I automatically transfer the amounts under the right category into worksheet B?

Thank your for your help.

 

[jolivanes]

Change references like sheet names etc. as required.
Can't find any reference for Cash/Card.
It assumes that Sheet2 has the proper header values in row 1.

Sub Maybe()
Option Explicit
Option Compare Text    '<----- Use this because capitalizing is not consistent in your examples.
Dim dataArr, i As Long, sh1 As Worksheet, sh2 As Worksheet, j As Long
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
dataArr = sh1.Range("A1:E" & sh1.Cells(sh1.Rows.Count, 1).End(xlUp).Row).Value
j = 2
    For i = 2 To UBound(dataArr)
        sh2.Cells(j, sh2.Rows(1).Find(dataArr(1, 1)).Column).Value = dataArr(i, 1)
        sh2.Cells(j, sh2.Rows(1).Find(dataArr(1, 2)).Column).Value = dataArr(i, 2)
        sh2.Cells(j, sh2.Rows(1).Find(dataArr(i, 3)).Column).Value = dataArr(i, 5)
        j = j + 1
    Next i
End Sub