I have found some codes that work but they are so unbelievably slow.

This is the alternative which is quick ...
ActiveSheet.Range("$A$7:$BA$20").RemoveDuplicates Columns:=1, Header:=xlNo

Is there anyway to get that to delete the entire row as opposed to just duplicate cell/data?

At current it deletes duplicates whicih removes the nice border formatting i have in place to make it into a timeline, I need it to remove the whole row including any other data in the row and just get rid of it so that the formatting from beneath jumps up to fill the gap and it all remains looking nice