Sub WellsFargoScript()


Dim answer As Integer

answer = MsgBox("Are you sure you want to run the script?", vbYesNo)

If answer = vbNo Then Exit Sub 'check if want to run the script'



'Delete unwanted data and add columns between AMT and DESCRIPTIVE TEXT'


Dim volColumns As Integer


Columns("B:E").EntireColumn.Delete
Columns("C:C").EntireColumn.Delete
Columns("E:F").EntireColumn.Delete


For volColumns = 0 To 16
    Range("H1").EntireColumn.Insert
Next volColumns

Rows(1).EntireRow.Delete


Range("A1", Range("AH1").End(xlDown)).Font.Name = "Arial"
Range("A1", Range("AH1").End(xlDown)).Font.Size = 9

Range("A1", Range("AH1").End(xlDown)).Select


'Classification PART'

Dim numOfRows As Integer
Dim i As Integer



numOfRows = Range("B1").End(xlDown).Row


For i = 1 To numOfRows
    If InStr(Range("AG" & i), "DEPOSIT CAPTURE ADJUST") <> 0 Then

        Range("L" & i) = "Cust Deposits - WFB - Debit"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "DEPOSIT CAPTURE BANK CARD") <> 0 Then

        Range("L" & i) = "Cust Deposits - WFB"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "ANALYSIS SRVC") <> 0 Then

        Range("L" & i) = "Client Service Charge"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "CC STTL") <> 0 Then

        Range("L" & i) = "Cust Deposits - CAD"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "PAYPAL TRANSFER") <> 0 Then

        Range("L" & i) = "Cust Deposits - WFB PayPal"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "BANKCARD INTERCHANGE FEE") <> 0 Or _
           InStr(Range("AG" & i), "BANKCARD FEE") <> 0 Or _
           InStr(Range("AG" & i), "BANKCARD FEE ADJUSTMENT") <> 0 Then

        Range("L" & i) = "Bankcard credit card fee"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "BANKCARD DISCOUNT FEE") <> 0 Then

        Range("L" & i) = "Bank Fees"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "AMEX TRS COMPANY PAYMENTS") <> 0 Then

        Range("L" & i) = "CAD Deposits - USD"
        Range("M" & i) = "CC Settlement/Bank Adj"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "AMAZON.COM9") <> 0 Then

        Range("L" & i) = "AMAZO001 Amazon.com.indc LLC"
        Range("M" & i) = "Open"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "AMAZON.COM.CA") <> 0 Then

        Range("L" & i) = "AMAZO004 Amazon.com.ca, Inc"
        Range("M" & i) = "Open"
        Range("U" & i) = Date

    ElseIf InStr(Range("AG" & i), "WHOLESALE LOCKBOX DEPOSIT") <> 0 Then

        Range("H" & i) = "Lockbox"
        Range("L" & i) = "See Lockbox"
        Range("M" & i) = "Lockbox"
        Range("U" & i) = Date

    End If
Next i


Range("U1:U" & numOfRows).NumberFormat = "mm/dd/yyyy"



End Sub