If Range does not include necessary header

With Selection.EntireColumn
    With Range(.Cells(1, .ColumnsCount), .Cells(.Rows.Count, 1).End(xlup))
        .Copy destination:=ThisWorkbook.Sheets("Sheet2").Range("A1").Resize(.Rows.Count, .Columns.Count)
    End With
End With

With Selection.Offset(-1,0)
    .Cells(1,1).Value = "Date" Then .Select Replacing:=False
End With

//Select one cell above the current selection
With Selection.Offset(-1,0)

//This second line I'm not sure if I completely understand but from looking up //(http://www.tushar-mehta.com/excel/vba/multiple_sheets.htm) .Select //Replace and setting it to false allows you to add to the current selection?

    .Cells(1,1).Value = "Date" Then .Select Replacing:=False
End With

Sub DoAll()
    
    Dim CloudData As Range
    
    On Error Resume Next
    
    'Asks user to specify which column of data they wish to summarize
    Set CloudData = Application.InputBox("Please select a range with the incident information you wish to summarize.", _
                                              "Specify Incident Information", Selection.Address, , , , , 8)


'Sub MakeTable()
Dim Pt As PivotTable
Dim strField As String
    
    'Pass heading to a String variable
    '*Need to make edit here most likely with some sort of if to use the first row heading
    'if selected data does not include this. i.e. if selected range starts with second row
    'or after.*
    
    'strField = Selection.Cells(1, 1).Text
    strField = CloudData.Cells(1, 1).Text
    
    'Name the list range not using the xlDown because there exists
    'the possibility of blanks in the column data.
    
    'Range(Selection, Selection.End(xlDown)).Name = "Items"
    CloudData.Name = "Items"
       
    'Create the Pivot Table based off our named list range.
    'TableDestination:="" will force it onto a new sheet
    
     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
         SourceData:="=Items").CreatePivotTable TableDestination:="", _
             TableName:="ItemList"
                
    'Set a Pivot Table variable to our new Pivot Table
    Set Pt = ActiveSheet.PivotTables("ItemList")
    
    'Place the Pivot Table to start from A1 on the new sheet
    ActiveSheet.PivotTableWizard TableDestination:=Cells(1, 1)
        
    'Move the list heading to the Row Field
    Pt.AddFields RowFields:=strField
    
    'Move the list heading to the Data Field
    Pt.PivotFields(strField).Orientation = xlDataField

ActiveSheet.Name = "FreqTable"

''Attempting to sort resulting table descending (not working so commented
''out until I figure out the header issue
'    With Range("A1", Cells(Rows.Count, 2).End(xlUp)).Resize(, 2)
'        .Sort .Cells(1, 2), xlDescending
'    End With

'Call CreateCloud

End Sub