USD $20.00 Copy and paste row data to separate worksheet when certain cell is updated

Private Sub Worksheet_Change(ByVal Target As Range)    Dim wb1 As Workbook, wb2 As Workbook
    Dim log As Worksheet, db As Worksheet
    Dim sarloc, yesno As String, valuetobecopied As String
    Dim lrow As Integer
    
    If Target.Count > 1 Then Exit Sub
    If Not Target.Column = 4 Then Exit Sub
    If Not UCase(Target.Value) = "D" Then Exit Sub
    sarloc = "X:\SEA Shares\warehouse\container dock doors\Distribution billing.xlsm"
    Set wb1 = ThisWorkbook
    Set log = wb1.Sheets("2017 LOG")
    valuetobecopied = fDataGet(Target)
    yesno = MsgBox("Do you want to copy to the information below to the distribution billing sheet" & vbLf & vbLf & valuetobecopied, vbYesNo, "Copy to distribution billing sheet?")
    If yesno = vbYes Then
        Set wb2 = Workbooks.Open(sarloc)
        Set db = wb2.Sheets("Distribution billing")
        lrow = db.Range("A" & db.Rows.Count).End(xlUp).Row + 1
        With db
            .Range("A" & lrow).Resize(, 6).Value = Split(valuetobecopied, "|")
        End With
        wb2.Close SaveChanges:=True
    End If
    Set log = Nothing
    Set db = Nothing
    Set wb1 = Nothing
    Set wb2 = Nothing
    
    
End Sub




Private Function fDataGet(rngTarget As Range) As String




    fDataGet = rngTarget.Offset(, -3) & "|" & rngTarget.Offset(, -1) & "|" & rngTarget.Offset(, 5) & "|" & rngTarget.Offset(, 13) & "|" & rngTarget.Offset(, 15) & "|" & rngTarget.Offset(, 16)
    
End Function