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

Sub CasePicks1()
' Get Data from Source File
Dim cp1 As Workbook, cp2 As Workbook, cp2Loc As String
Dim ds2 As Worksheet, ds2Name As String

Application.ScreenUpdating = False
cp2Loc = "C:\Users\Family\My Documents\Dads\Work\Dock Schedule\CPreport.xlsx"
ds2Name = "DockSchedule"

Set cp1 = ActiveWorkbook
Set cp2 = Workbooks.Open(Filename:=cp2Loc)
Set ds2 = cp2.Sheets(ds2Name)

  [COLOR=#0000cd]  'Here is where I think I am missing the functional part
    'I bastardized the above from a previous macro in the sheet
    'I think that this will correctly call up CPreport but
    'At that point I become lost trying to write the functional code[/COLOR]

cp2.Close False
Application.ScreenUpdating = True
End Sub

Set src = srcWB.Sheets("Sheet1").Range("B4:B64")

With srcWB
    lr = .Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Set src = srcWB.Sheets("Sheet1").Range("B4:B" & lr)
End With

Sub Step1()
    Dim srcWB As Workbook, strName As String, strPath As String
    Dim src As Range, rng As Range, cel As Range, fndON As Range
    Dim lr As Long
    
Application.ScreenUpdating = False

'check that source workbook is open
strName = "CPReport.xlsx"
    If IsWbOpen(strName) Then
        Set srcWB = Workbooks(strName)
    Else
        strPath = "C:\Users\Family\My Documents\Dads\Work\Dock Schedule\"
        'strPath = "D:\Forum Stuff\RobertWP\"
        Set srcWB = Workbooks.Open(strPath & strName)
    End If

With ThisWorkbook.Sheets("DockSchedule")
    lr = .Cells(Rows.Count, "I").End(xlUp).Row
    Set rng = .Range("I3:I" & lr)
End With

[COLOR=#0000cd]With srcWB
    lr = .Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Set src = srcWB.Sheets("Sheet1").Range("B4:B" & lr)
End With[/COLOR]

For Each cel In rng
    If cel.Value <> "" Then
        Set fndON = src.Find(What:=cel.Value, _
                             LookIn:=xlValues, _
                             LookAt:=xlWhole, _
                             SearchOrder:=xlByRows, _
                             SearchDirection:=xlNext, _
                             MatchCase:=False)
        
        If Not fndON Is Nothing Then
            cel.Offset(0, 4).Value = fndON.Offset(0, 1).Value
        End If
    End If
Next cel

srcWB.Close False

Application.ScreenUpdating = True

End Sub

Function IsWbOpen(wbName As String) As Boolean
    'check all open workbooks for one with specific name
        Dim i As Long
    'step thru all open workbooks
    For i = Workbooks.Count To 1 Step -1
        If Workbooks(i).Name = wbName Then Exit For
    Next
    'if i reaches zero ie:False workbook wasn't found
    If i <> 0 Then IsWbOpen = True
End Function

Sub TransferData()
    Dim srcWB As Workbook, strName As String, strPath As String
    Dim src As Range, rng As Range, cel As Range, fndON As Range
    Dim lr As Long
    
Application.ScreenUpdating = False

'path and name for source workbook
strPath = "C:\Users\Family\My Documents\Dads\Work\Dock Schedule\"
strName = "CPReport.xlsx"

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

'set what to loop through on DockSchedule
With ThisWorkbook.Sheets("DockSchedule")
    lr = .Cells(Rows.Count, "I").End(xlUp).Row
    Set rng = .Range("I3:I" & lr)
End With

'set where to find it in CPreport
With srcWB
    lr = .Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
    Set src = srcWB.Sheets("Sheet1").Range("B4:B" & lr)
End With

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

srcWB.Close False

Application.ScreenUpdating = True

End Sub

Sub CPStep1()

    Dim srcWB As Workbook, dstWB As Workbook
    Dim strPath As String, srcName As String, dstName As String
    Dim src As Range, 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\"
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("I3: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

'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
    Set dstWB = Nothing
    
Application.ScreenUpdating = True

End Sub