copy data from one worksheet to new workbook

Hi.

In attached sheet, I want to copy the data with country name as 'US' into new workbook and then rename with workbook with country name + sysdate (i.e. "US_20140219").
Can anyone help me. Data are present in dynamic range in both rows and columns

Maybe:

Sub abraham30()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = ActiveSheet
Workbooks.Add
ActiveWorkbook.SaveAs "US_" & Format(DateAdd("yyyy", 0, Date), "yyyymmdd")
Set ws2 = ActiveWorkbook.Sheets("Sheet1")
ws2.Rows(1).Value = ws.Rows(1).Value
ws.Activate
Range("A1:A" & Range("A" & Rows.count).End(3)(1).Row).AutoFilter 1, "US"
Range("A2:D" & Range("A" & Rows.count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).Copy ws2.Range("A" & Rows.count).End(3)(2)
ws.AutoFilterMode = False
ws.Cells.AutoFilter
End Sub

Thanks for your help.
As the column are in dynamic range, the macro will not able to copy the data for those columns into new workbook.

Can you plz check once again.

Would the entirerow be a solution?

Sub abraham30()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = ActiveSheet
Workbooks.Add
ActiveWorkbook.SaveAs "US_" & Format(DateAdd("yyyy", 0, Date), "yyyymmdd")
Set ws2 = ActiveWorkbook.Sheets("Sheet1")
ws2.Rows(1).Value = ws.Rows(1).Value
ws.Activate
Range("A1:A" & Range("A" & Rows.count).End(3)(1).Row).AutoFilter 1, "US"
Range("A2:A" & Range("A" & Rows.count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).EntireRow.Copy ws2.Range("A" & Rows.count).End(3)(2)
ws.AutoFilterMode = False
ws.Cells.AutoFilter
End Sub

Thanks John for ur help

You're welcome. Glad to help out. If you consider your problem resolved then please comply with Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.