Excel VBA - Filter, Copy and Paste to New Sheet

[AJaxEmpire]

Greetings,
I am new to VBA and have the following query.

I have a sheet with data in range A1:CL94.
Row 1, 2 and 3 are headers. Row 4 is the filter header.
A:A are the data to be filtered. Below table shows what it looks like.

I need a macro that would Copy all 4 headers, filter the data by each Area with the Total, and creat a new sheets with each of the Area Name. There are 9 areas currently that can be specified.

Any help is greatly appreciated. Merry Christmas and a Happy new year.

	A	B	C	CL
1	Header
2	Header
3	Header
4	Filter Header
5	Area 1	x	x	x
6	Area 1	x	x	x
7	Total Area 1	x	x	x
8	Area 2	x	x	x
9	Area 2	x	x	x
10	Area 2	x	x	x
11	Total Area 2	x	x	x
12	Area 3	x	x	x

<tbody>
</tbody>

 

[Vinoth_Shob]

sheet1.range("A1:c1048576").SpecialCells(xlCellTypeVisible).copy

And paste it into the new sheet

 

[AJaxEmpire]

Hi there. Thank you.
Can you please advise on how that is to be used? I dont understand how to implement it.