I've a macro in order to create a pivot table from fresh new data every day.
It start's by formating the information that comes from an external source,
and then creates the pivot table.
I can't set the code in order to manage to create a pivot table that
includes all information and that doesn't show me any blank cells/values.

The pivot code ids this:
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
"Sheet1!R1C1:R313C9",
Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Sheet4!R3C1", TableName:="PivotTable1",
DefaultVersion _
:=xlPivotTableVersion12

How can I do in order to change the source data automatically?