Here's a start. The other sheet is just a variation of the second case.
Option Explicit
Option Base 1
Sub Test()
Dim arr()
Dim i, j, k
Dim rng, tgt
With Sheets("Receipt")
Select Case .[B9]
Case "Cash"
' do other
Case Else
ReDim arr(30, 10)
arr(1, 1) = .[L3]
arr(1, 2) = .[L5]
'etc.
arr(1, 8) = .[D9]
'etc.
For i = 2 To 10 Step 4
For j = 13 To 22
k = k + 1
arr(k, 5) = .Cells(j, i)
arr(k, 6) = .Cells(j, i + 1)
arr(k, 7) = .Cells(j, i + 2)
Next j
Next i
Set tgt = Sheets("Bank_Log").Cells(Rows.Count, 6).End(xlUp).Offset(, -4)
For i = 1 To 30
For j = 1 To 10
tgt.Offset(i, j - 1) = arr(i, j)
Next j
Next i
End Select
End With
End Sub