Option Explicit
Sub FetchData()
  'Looks at Column F and populates the result to a worksheet
  'based off the value A or B
  Dim CheckRow As Long, TotalRows As Long, ResultRowA As Long, ResultRowB As Long
  Dim wb As Workbook, ws As Worksheet, wsA As Worksheet, wsB As Worksheet
  Dim DateVal() As String, Des() As String, Debit() As String, Credit() As String
  Dim TR As Long, x As Integer, CheckValue As String
  
  'set up and assign the variables/objects
  
  Set wb = ThisWorkbook
  Set ws = wb.Worksheets("Day Book")
  Set wsA = wb.Worksheets("A")
  Set wsB = wb.Worksheets("B")
  
  x = 0 'to be used for arrays
  ResultRowA = 4
  ResultRowB = 4
  TotalRows = 454 'Change this to your last row otherwise we can write  a loop to find the last row.
  TR = TotalRows ' Easier for redimming arrays
  
  ReDim DateVal(TR) As String, Des(TR) As String, Debit(TR) As String, Credit(TR) As String
  
    For CheckRow = 7 To TotalRows
      CheckValue = ws.Range("F" & CheckRow).Value
      DateVal(x) = ws.Range("A" & CheckRow).Value
      Des(x) = ws.Range("B" & CheckRow).Value
      Debit(x) = ws.Range("C" & CheckRow).Value
      Credit(x) = ws.Range("D" & CheckRow).Value
      
      If UCase(CheckValue) = "A" Then
        wsA.Range("A" & ResultRowA & ":D" & ResultRowA) = Array(DateVal(x), Des(x), Debit(x), Credit(x))
        ResultRowA = ResultRowA + 1
        x = x + 1
      End If
      
      If UCase(CheckValue) = "B" Then
        wsB.Range("A" & ResultRowB & ":D" & ResultRowB) = Array(DateVal(x), Des(x), Debit(x), Credit(x))
        ResultRowB = ResultRowB + 1
        x = x + 1
      End If
    Next CheckRow
    
    MsgBox "done"

End Sub