VBA Excel port of 2048