Kopi af celleindhold via VBA

Hej
Jeg sidder med et regneark på ca. 200.000 linjer, hvor jeg via to parametre skal kopiere en celles indhold til en anden celle.

Jeg har lavet følgende VBA kode, men den er rigtig langsom og jeg er lidt på bar bund med hensyn til kopiering til memory og lave det der.

WBL = ActiveSheet.UsedRange.Rows.Count

For a = 1 to WBL

If Cells(a, 4).Value = "S" And Cells(a + 1, 4).Value = "C" Then
Cells(a + 1, 8).Select
Selection.Copy
Cells(a, 43).Select
Selection.Insert
End If

Next a

Jeg har prøvet at slå skærmopdatering fra, men det giver ikke hurtigere gennemløbstid. Formlen jeg har lavet er over 1 time om gennemløbet.

Nogen der har et godt bud på hvorledes jeg optimere dette.