Create Table with quartils

[p45cal]

If you're going to use that you can shorten it a bit:

Set originalTable = Selection.CurrentRegion
If originalTable.Row < 4 Then Cells(4, 1).CurrentRegion.Select

but you'll probably get away with just

Set originalTable = Cells(4, 1).CurrentRegion

then if you want a visual chaeck of what originalTable is just type
originalTable.select in the Immediate pane of the VBE (Ctrl+G of you can't see it).