VBA to split date and time

Hi,

thanks for this the above VBA code worked, how would I put this on a loop to include any row along the column (apologies for all the questions I am fairly new to VBA)