Son sayfaya yazdıran kodu nasıl kaldırırım

[stres]

arkadaşlar kod şu ben üçüncü sayfaya yazdırmasını istemiyorum ama nerden itibaren değişikik yapacağımıda deneme yapmama rağmen bir türlü bulamadım hep hata verdi bir bakarmısınız kırmızı olan bölümü iptal emek istiyorum

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a, b As Integer
a = 1: b = 1
yeniden:
a = a + 1: b = b + 1
If Sheets("data").Cells(a, 1).Value = "" Then

Sheets("veri").Cells(2, 1).Select
Sheets("data").Cells(a, 1).Value = Sheets("veri").Cells(2, 2).Value
Sheets("data").Cells(a, 2).Value = Sheets("veri").Cells(2, 3).Value
Sheets("data").Cells(a, 3).Value = Sheets("veri").Cells(2, 4).Value
Sheets("data").Cells(a, 4).Value = Sheets("veri").Cells(2, 9).Value
Sheets("data").Cells(a, 5).Value = Sheets("veri").Cells(2, 11).Value
Sheets("data").Cells(a, 6).Value = Sheets("veri").Cells(2, 12).Value
Sheets("data").Cells(a, 7).Value = Sheets("veri").Cells(2, 13).Value
Sheets("veri").Cells(2, 1) = ""
Sheets("veri").Cells(2, 2) = ""
Sheets("veri").Cells(2, 3) = ""
Sheets("veri").Cells(2, 4) = ""
Sheets("veri").Cells(2, 9) = ""
Sheets("veri").Cells(2, 11) = ""
Sheets("veri").Cells(2, 12) = ""
Sheets("veri").Cells(2, 13) = ""

bos:
If Sheets("veli").Cells(b, 1).Value = "" Then
Sheets("veli").Cells(b, 1).Value = Sheets("veri").Cells(2, 1).Value
Sheets("veli").Cells(b, 2).Value = Sheets("veri").Cells(2, 2).Value
Sheets("veli").Cells(b, 3).Value = Sheets("veri").Cells(2, 3).Value
Sheets("veli").Cells(b, 4).Value = Sheets("veri").Cells(2, 4).Value
Sheets("veli").Cells(b, 5).Value = Sheets("veri").Cells(2, 5).Value
Sheets("veli").Cells(b, 6).Value = Sheets("veri").Cells(2, 6).Value
Else
b = b + 1
GoTo bos
End If
zipla:
If Sheets("veri").Cells(2, 7).Value = "" Then GoTo dur
End If
GoTo yeniden
dur:
End Sub

 

[dEdE]

3. sayfadan kasdınız hangisidir?
Kodlarda; Veri, Data ve Veli isimli sayfalar görünüyor.

 

[stres]

özür dilerim "veli" olan sayfaa veri yazdırmak istemiyorum