The below code works perfectly but when doing 20 odd thousand rows it takes a good bit of time so I was just seeing if there was a more efficient method of doing same thing.
Sub CopySensToReleventCell() '
Dim i As Long
Dim y As Integer
cgws.Select 'selecting results worksheet
For i = 2 To...