VBA Copy/Paste Data

[jdub84]

I'm trying to write a code that copy/paste from one worksheet to another. I'm trying to choose specific columns in the Worksheet titled "FY 13 S3 FR PUF" and copy those into "ProvCBSA AHW Analysis."

Here's the code I have written but cannot get it to work:

Sub CopyData()

Sheets("FY 13 S3 FR PUF").Select
Range("A9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("ProvCBSA AHW Analysis").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Also, I would like to add additional columns - once I get this to work, can I simply recreate the coe above and just change the cells locations to the new columns I would like to copy/paste?

Thanks!

 

[nuked]

Sub CopyData()

Sheets("ProvCBSA AHW Analysis").Range("A10") = Sheets("FY 13 S3 FR PUF").Range("A9").Value

End Sub

 

[nuked]

Sorry, misread your requirement:

Sub CopyData()

Sheets("FY 13 S3 FR PUF").Range("A9").End(xlDown).Copy
Sheets("ProvCBSA AHW Analysis").Range("A10").PasteSpecial Paste:=xlPasteValues

End Sub

 

[jdub84]

Thanks but this does not copy the entire column from A9 to the last cell populated. Any other ideas?

 

[nuked]

ADVERTISEMENT

Try:

Sheets("FY 13 S3 FR PUF").Range("A9:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy

 

[jdub84]

I think something that could be causing it to be unsuccessful is that the data on "FY 13 FR PUF" is autofiltered. I only want that data from the autofilter copy/paste to the "ProvCBSA AHW Analysis."

 

[jdub84]

I'm using this now but I would like to copy/paste more columns. For instance, I would like to add Column B, I, J, K, etc....

Sub CopyData()

Sheets("FY 13 S3 FR PUF").Range("A9:A5000" & Range("A" & Rows.Count).End(xlUp).Row).Copy
Sheets("ProvCBSA AHW Analysis").Range("A10").PasteSpecial Paste:=xlPasteValues

End Sub