Macro to copy data from 3 sheets into a fourth sheet

Macro to copy data from 3 sheets into a fourth sheet

Hello,

I am trying to copy data from 3 separate sheets (Ranges A to E) into a fourth sheet (Final).May I ask the VBA code for it please. So far to copy values from 1 sheet (Electrical) into a separate sheet (Final).

Sor far I have:

  2. Sub copy_paste()


  5.     Dim SourceRange,DestinationRange as Range

  7.     

  9.     Set SourceRange1=Range("Electrical!A:E")
  10.     
  11.     Set DestinationRange=Range("Final!A:E")

  13.     

  15.     SourceRange.copy
  16.     
  17.     DestinationRange.select

  19.     ActiveSheet.paste 
  20.     
  21.     

  23. End Sub