Object required VBA set range value error

struggling a bit here with what i am missing. Probably something simple. I have also attached a image of the error. Any help would be appreciated.

Option Explicit
Dim f As Boolean
Sub Copy_Paste_Below_Last_Cell()
'Find the last used row in both sheets and copy and paste data below existing data.
Dim wbDest As Workbook
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Dim range1 As Range, range2 As Range, range3 As Range, range4 As Range, multipleRange As Range
    If f Then Exit Sub
      
    f = True

  Set wsCopy = ThisWorkbook.Sheets("Status Board")
  Set wbDest = Workbooks.Open("\\LT-MAIN-SRV\public\QUALITY\Status Board\DailyPassdownRecordByShift\DailyLogCompletion.xlsx")
  Set wsDest = Worksheets("Log")
  Set range1 = wsCopy.Range("Area_1").Value
  Set range2 = wsCopy.Range("O2").Value
  Set range3 = wsCopy.Range("P2").Value
  Set range4 = wsCopy.Range("Q2").Value
  Set multipleRange = Union(range1, range2, range3, range4)

        lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row


  multipleRange.Copy _
    wsDest.Range("A" & lDestLastRow).Paste
  wbDest.Close
  f = False
End Sub