Multiple sheets import vba

I this is my first post in this forum sorry if it's something easy, but I'm a newbie in VBA and I need to do this for my company but I can't really figure out how.

I'm having problems integrating/merging the codes posted with my actual code, the other codes besides mine are able to import data from multiple sheets but I can't figure out how to implement them in my own code.

My actual code and made by me and a lot of help from tutorials is this:

 Option Explicit
 Sub ImportData()

 Application.ScreenUpdating = False
 Dim Path As String, Lstrw As Long
 Dim SourceWb As Workbook
 Dim TargetWb As Workbook

 Path = "C:\Users\DZPH8SH\Desktop\Status 496 800 semana 12 2015.xls"    'Change this to your company workbook path
 Workbooks.Open (Path)

 Set SourceWb = Workbooks("Status 496 800 semana 12 2015.xls")    'Change "Source" to the name of your company workbook

 Set TargetWb = Workbooks("Master_Atual_2015.xlsm") 'change the file address

 Lstrw = SourceWb.Sheets(1).Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
 With SourceWb.Sheets(1)
.Application.Union(.Range("D2:D" & Lstrw), .Range("F2:F" & Lstrw), .Range("I2:I" & Lstrw), .Range("M2:M" & Lstrw)).Copy Destination:=TargetWb.Sheets(1).Range("A3")

End With
SourceWb.Close savechanges:=False
Application.ScreenUpdating = True

 End Sub

This is one of the codes that can import multiple data from more than 1 sheet, and I would like to merge this code with mine or if someone ably the principle to my own code. (1ºCODE):

Sub MoveData()
Dim LastRow As Long, WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Sheets("Sheet1")
Set WS2 = Sheets("Sheet2")
LastRow = WS1.Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row 
Intersect(WS1.Rows("2:" & LastRow), WS1.Range("D:D,F:F,I:I,M:N")).Copy WS2.Range("A3")
End Sub

This is one of the codes that can import multiple data from more than 1 sheet, and I would like to merge this code with mine or if someone ably the principle to my own code. (2ºCODE):

 Sub Button1_Click()
 Dim WS1 As Worksheet, WS2 As Worksheet
 Dim RangeArea As Range, x
 Set WS1 = Sheets("Sheet1")
 Set WS2 = Sheets("Sheet2")
 x = 0
 For Each RangeArea In WS1.Range("D:D,F:F,I:I,M:N").SpecialCells(xlCellTypeConstants, 23).Areas
    RangeArea.Copy WS2.Range("A3").Offset(0, x)
    x = x + 1
 Next RangeArea
 End Sub

I thank you for any reply in advance.