If I understand what you are after correctly this macro will do what you want.

If you require it to search for multiple instances then try activating the do Loop commands that are disabled within the macro
Dim rngRCJ As Range
Dim rngData As Range

Set rngData = Cells(Rows.Count, "a")
With Columns("a:a")
  ' do
   Set rngRCJ = .Find("RECORD PAYMENT_JOURNAL", After:=rngData)
      If rngRCJ Is Nothing Then
         Exit Sub
      End If
      Set rngData = .Find("DATA CA001/10", After:=rngRCJ)
      If Not rngData Is Nothing Then
         Range(rngRCJ.Address, rngData.Address).Offset(0, 1).Value = Range(rngRCJ.Address, rngData.Address).Value
      End If
      
      Set rngRCJ = .Find("RECORD RECEIPT_JOURNAL", After:=rngData)
      If rngRCJ Is Nothing Then
         Exit Sub
      End If
      Set rngData = .Find("DATA CA001/10", After:=rngRCJ)
      If Not rngData Is Nothing Then
         Range(rngRCJ.Address, rngData.Address).Offset(0, 1).Value = Range(rngRCJ.Address, rngData.Address).Value
      End If
   'loop
End With