Help modifying Macro to pull columns

[Itried]

Hi,

I currently have this Macro which opens up a diff workbook and pulls three columns from it onto the current workbook. However it is not functioning properly it is only pulling column J and pasting those same values into columns A-C on the current sheet.

This is my code:

Sub database()
Dim wbA As Workbook, wbB As Workbook


Set wbA = ThisWorkbook
Set wbB = Workbooks.Open("Z:\snv_pfm_commdrive\Sprint PFM\Mir Ali\Excluded Fees Sprint Report Data Through 150723.xlsx")


wbB.Activate
Target_Data = wbB.Sheets(4).Range("$J:$J,$Q:$Q,$AS:$AS").EntireColumn
wbA.Sheets(3).Range("$A:$A,$B:$B,$C:$C") = Target_Data


Source_data = wbA.Sheets(3).Range("$A:$A,$B:$B,$C:$C")


wbB.Close
wbA.Save
End Sub

Any help would be appreciated!!

 

[JLGWhiz]

You might have better luck with this method.

Dim rng As Range
With Sheets(4)
    Set rng = Union(.Range("$J:$J"), .Range("$Q:$Q"), .Range("$AS:$AS"))
    rng.Copy wbA.Sheets(3).Range("$A1")
    Source_data = wbA.Sheets(3).Range("$A:$A,$B:$B,$C:$C")
End With

but your Source_data variable could be problematic. Not quite sure what you are trying to do with it.

 

[Itried]

You might have better luck with this method.

Dim rng As Range
With Sheets(4)
    Set rng = Union(.Range("$J:$J"), .Range("$Q:$Q"), .Range("$AS:$AS"))
    rng.Copy wbA.Sheets(3).Range("$A1")
    Source_data = wbA.Sheets(3).Range("$A:$A,$B:$B,$C:$C")
End With

but your Source_data variable could be problematic. Not quite sure what you are trying to do with it.

I think I might have just left that Source_data variable from all the other ways I tried to make this code.

But yes, this worked perfectly! Thank you so much!!

 

[JLGWhiz]

I think I might have just left that Source_data variable from all the other ways I tried to make this code.

But yes, this worked perfectly! Thank you so much!!

You're welcome,
Regards, JLG