VBA - Copy certain columns, but need to replace data on the ultimate sheet

[NathanA]

I am using code to copy over certain columns if two conditions are met, however, I would like for the code to replace what is already on 'Emerging' (the ultimate sheet). Any guidance would be much appreciated.

Sub Emerging()


Set i = Sheets("Under achievement data")
Set e = Sheets("Emerging")
Dim d
Dim j
d = 1
j = 2


'Choose length of data to copy
Do Until IsEmpty(i.Range("A" & j))
    'Specify criteria
    If i.Range("J" & j) <> "" And _
    i.Range("G" & j) = "Emerging" Then
    d = d + 1
    'Select columns to copy
'            e.Rows(d).Value = i.Rows(j).Value
'            1, 3, 6, 7, 8, 9, and 10
            e.Cells(d, 3).Value = i.Cells(j, 1).Value
            e.Cells(d, 6).Value = i.Cells(j, 3).Value
            e.Cells(d, 1).Value = i.Cells(j, 6).Value
            e.Cells(d, 2).Value = i.Cells(j, 7).Value
            e.Cells(d, 7).Value = i.Cells(j, 8).Value
            e.Cells(d, 5).Value = i.Cells(j, 9).Value
            e.Cells(d, 4).Value = i.Cells(j, 10).Value


End If
j = j + 1
Loop


End Sub
[\code]