Collecting data from General Ledger accounts lines
Here's a suggestion for simplifying your code by refactoring a bit and copying out the common part to a separate sub.  Also sets values directly in place of copy/paste.

This could be refactored completely to (eg) read the values to be matched from a table on a worksheet, along with the destination for each matched row.

Sub Table9052()

    'use constants for fixed values
    Const Locker As String = "9052 Electronic Lockers"
    Const GC As String = "9042 Dunkin Donuts Gift Card"
    Const MBD As String = "MERCHANT BANKC*"
    Const DDSV As String = "DD STORED VALU*"
    Const SS As String = "STARBUCKS STOR*"

    Dim i As Long '&lt;&lt; use long in place on Integer
    Dim ColA As Range, ColF  As Range, ColK  As Range, ColP As Range, ColU  As Range

    Dim wsA As Worksheet: Set wsA = ThisWorkbook.Sheets("QA Data A")
    Dim wsK As Worksheet: Set wsK = ThisWorkbook.Sheets("QA Data K")
    Dim wsT As Worksheet: Set wsT = ThisWorkbook.Sheets("Tables")

    Dim Eval, rw As Range

    'set the starting points for each of the destination tables
    With wsT
        Set ColA = .Cells(3, "A")
        Set ColF = .Cells(3, "F")
        Set ColK = .Cells(3, "K")
        Set ColP = .Cells(3, "P")
        Set ColU = .Cells(3, "U")
    End With

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    For i = 6 To wsA.Range("C65536").End(xlUp).Row
        Set rw = wsA.Rows(i)
        Select Case rw.Cells(4).Value
            Case Locker: CopyRow rw, ColA
            Case GC: CopyRow rw, ColP
        End Select
    Next i

    For i = 6 To wsK.Range("C65536").End(xlUp).Row
        Set rw = wsK.Rows(i)
        Eval = rw.Cells(4)

        If Eval Like MBD &amp; "*" Then CopyRow rw, ColF
        If Eval Like DDSV &amp; "*" Then CopyRow rw, ColK
        If Eval Like SS &amp; "*" Then CopyRow rw, ColU

    Next i
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

'extract out the common code to a separate sub
'   copy values and advance to next row
Sub CopyRow(rw As Range, cDest As Range)
    cDest.Resize(1, 4).Value = _
            Array(rw.Cells(3).Value, rw.Cells(4).Value, _
            rw.Cells(5).Value, rw.Cells(7).Value)
    Set cDest = cDest.Offset(1, 0) 'next row...
End Sub