Either:
CellValue = ThisWorkbook.Sheets("FORM").Range("D14").Value & "-" & ThisWorkbook.Sheets("FORM").Range("E8").Value
or
With ThisWorkbook.Sheets("FORM")
  CellValue = .Range("D14").Value & "-" & .Range("E8").Value
End With