Sadece hücre kopyalama yapıştırma

[hqn13]

Private Sub CreateFile()
Dim iProductNo As Integer
Workbooks.Add
Set oActiveSheet = ActiveWorkbook.Sheets("Sheet1")

For j = 2 To 6000
If Sheets("Installbase").Cells(j, "AJ") = True Then
Sheets("Installbase").Cells(j, 6).Copy
oActiveSheet.Cells(6, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Sheets("Installbase").Cells(j, "AI").Copy
oActiveSheet.Cells(7, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Application.CutCopyMode = False
End If
Next

End Sub


Arkadaşlar sadece belli hücreleri yeni bir sayfaya kopyalamak istiyorum ama beceremedim. hata nerede acaba ? yada bunun gibi bişi nasıl olur?

NOT : HALLETTİM TEŞEKKÜRLER