application.screenupdate = false
application.calculation = xlcalculationmanual

For each cellx in range("G2:G30000")

cellx = application.worksheetfunction.countif(range("B2:B30000"),cells(cellx.row,2)

Next

application.screenupdate = true
application.calculation = xlcalculationauto
Something like that. Is there an alternative method to countif on a range of cells to check for duplicate because it seems really slow even with the adjustment of manual calculation and false screenupdate.