'This line selects the table.  can be deleted.
    Range("PKB[[#Headers],[Datum / tijd]]").Select

'This line resizes the table. 
    ActiveSheet.ListObjects("PKB").Resize Range("$B$5:$CO$133")