Cell reference to locate /store data in excel

Sub InvoiceLocation()
Dim InvoiceNo, CellRef As String
Dim AC, rngOR As Range

Application.ScreenUpdating = False

For Each AC In Range("D5:D65536")
    If (AC.Value = vbNullString) Then Exit Sub
    With Sheets("Invoice store")
      Set rngOR = Nothing
      Set rngOR = .Cells.Find(What:=AC.Value, _
                                 After:=.Cells(1, 1), _
                                 Lookat:=xlPart, _
                                 SearchDirection:=xlNext, _
                                 MatchCase:=False)
      If (rngOR Is Nothing) Then Exit Sub
      CellRef = rngOR.Address
    
    End With
    AC.Select
    InvoiceNo = "'INVOICE STORE'!" & rngOR.Address
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    InvoiceNo

Next AC

Application.ScreenUpdating = True

End Sub

Sub DataRqd()
Dim SourceWS    As Worksheet, DestWS As Worksheet
    Dim SourceRng, DestRow, CellDesc   As Range
    Dim lloop As Long
     
    Set SourceWS = Sheets("INVOICE") 'adjust the sheet name
    Set DestWS = Sheets("DATA REQD") 'adjust the sheet name
    If SourceWS.Range("F41") = 0 Then
    MsgBox "NO NEW DATA TO SAVE !!", vbExclamation + vbInformation, "INVOCE SAVED INTO INVOICE STORE"
    Exit Sub
    Else
    For Each CellDesc In SourceWS.Range("B31:B40")
    If CellDesc.Value = "" Then Exit For
    With SourceWS
            Set SourceRng = .Range("F15")
            Set DestRow = DestWS.Range("A" & Rows.Count).End(xlUp).Offset(1)
            SourceRng.Copy DestRow
            SourceRng.Copy
            DestRow.PasteSpecial xlPasteValuesAndNumberFormats
        For lloop = 1 To 3
            Set SourceRng = Choose(lloop, .Range("F17"), .Range("C15"), _
               Range(CellDesc, CellDesc.Offset(0, 3))) 'adjust the range
            Set DestRow = DestRow.Offset(0, 1)
            SourceRng.Copy DestRow
            SourceRng.Copy
            DestRow.PasteSpecial xlPasteValuesAndNumberFormats
            If lloop = 1 Then
            With DestRow
            .Value = Mid(DestRow, 9, 4)
            .NumberFormat = "General"
            End With
            End If
            Application.CutCopyMode = False
        Next lloop
    End With
    Next CellDesc
    MsgBox " DATA SAVED !!!", vbExclamation + vbInformation, "DATA SAVED TO DATA SHEET"
    End If

End Sub