Need a VBA Macro get data from one file to another + calculation

Dim order as Range

'set where to find it in CPreport
    With srcWB
    src_lr = .Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Set src = srcWB.Sheets("Sheet1").Range("B4:B" & src_lr)
    End With
    'doctor the data
        For Each order In src
            order.Value = Replace(order.Value, Chr(160), "") * 1
        Next order

Sub CPSteps()
    Dim srcWB As Workbook, dstWB As Workbook
    Dim strPath As String, srcName As String, dstName As String
    Dim src As Range, order As Range
    Dim rng As Range, cel As Range, fndON As Range
    Dim src_lr As Long, dst_lr As Long, Pick As Long
    
Application.ScreenUpdating = False

'path and name for workbooks
'strPath = "C:\Users\Family\My Documents\Dads\Work\Dock Schedule\"
strPath = "D:\Forum Stuff\2016\2016_07_01\RobertWP\"
srcName = "CPReport.xlsx"
dstName = "Sup-DSTool.xlsm"

'set source
    On Error Resume Next    'disable error notification
    Set srcWB = Workbooks(srcName)
    On Error GoTo 0         're-enable error notification
    'if not already open
    If srcWB Is Nothing Then
        Set srcWB = Workbooks.Open(strPath & srcName)
    End If

'set destination
    On Error Resume Next    'disable error notification
    Set dstWB = Workbooks(dstName)
    On Error GoTo 0         're-enable error notification
    'if not already open
    If dstWB Is Nothing Then
        Set dstWB = Workbooks.Open(strPath & dstName)
    End If

'set what to loop through on DSTool
    With dstWB.Sheets("DSTool")
    dst_lr = .Cells(Rows.Count, "I").End(xlUp).Row
    Set rng = .Range("I6:I" & dst_lr)
    End With

'set where to find it in CPreport
    With srcWB
    src_lr = .Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Set src = srcWB.Sheets("Sheet1").Range("B4:B" & src_lr)
    End With
    'doctor the data
        For Each order In src
            order.Value = Replace(order.Value, Chr(160), "") * 1
        Next order

'do the loop and find
    For Each cel In rng
        If cel.Value <> "" Then
            Set fndON = src.Find(What:=CDbl(cel.Text), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlNext, _
                                MatchCase:=False)
            
            If Not fndON Is Nothing Then 'was found
                'transfer data
                Pick = Trim(fndON.Offset(0, 1).Value)
                cel.Offset(0, 3).Value = Pick
            End If
        End If
    Next cel

'close the source
    srcWB.Close False
    Set srcWB = Nothing

'put SUMIF formula into column M
    With ActiveSheet
        .Range("M6").Formula = "=SUMIF($H$6:$H6,H6,$L$6:$L6)"
        .Range("M6").AutoFill Destination:=Range("M6:M" & .Cells(Rows.Count, 2).End(xlUp).Row)
    End With

Application.ScreenUpdating = True

End Sub

Sub ToggleFilter()
    With ActiveSheet
        If .FilterMode = True Then
            .ShowAllData
        Else
            .Range("K5:K" & .Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=">0", VisibleDropDown:=False
        End If
    End With
End Sub

Sub ColorShifts()
    Dim t As Integer, shift As Integer, cel As Range
With ActiveSheet
    For Each cel In .Range("B6:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
        t = Mid(cel.Value, 10, 2)
            If t >= 6 And t < 14 Then
                shift = 36 'yellow    'day shift
            ElseIf t >= 14 And t < 21 Then
                shift = 35 'green    'afternoon shift
            Else
                shift = 0 'no color    'night shift
        End If
        cel.Interior.ColorIndex = shift
    Next cel
End With
End Sub

If Range(" [B]A[/B] " & r ).Value = "[B]L[/B]" And  
    If InStr(Range(" [B]E[/B] " & r).Value, "") And 
    If InStr(Range(" [B]J[/B] " & r).Value, "") Then
        Range(" [B]H[/B] " & r).Value ="[B]No Docs[/B]" 

End If

If Range("[B]A[/B]" & r[B]).[/B]Value = "[B]L[/B]" And 
    If InStr(Range("[B]C[/B]" & r).Value, " ") And
    If InStr(Range("[B]H[/B]" & r).Value, " ") And
    If InStr(Range("[B]I[/B]" & r).Value, " ") And 
    If InStr(Range("[B]J[/B]" & r).Value, " ") Then
        Rows(r).Delete

End If

With only the first IF.

If  first thing  And  second thing  And  third thing  Then
     Do something
End If

Using IF for each requirement.

If first thing  Then
     If second thing  Then
         If third thing  Then
             Do something
         End If
     End If
End If

            filtRng.AutoFilter Field:=1, Criteria1:=crit
            'put L total in last K showing
            .Cells(GetFilteredRangeBottomRow, "K").Value = Ltot
        End If
    Next j
    
    'remove last filter
    filtRng.AutoFilter
    'show results
    filtRng.AutoFilter Field:=4, Criteria1:=">0"
End With