VBA: Copy data from every other row, paste it in previous row, delete copied row

Thanks so much Sintek! this is what I needed, just getting the following error when I run it though

Run-time error '1004' : Method 'Range' of object'_Global' failed

I know it has to do with Range, but B:G is the range on the sheet, so don't understand why it's doing this.