Macro-not refering correctly [Closed]

Report
-
Hello,
Iam very new to macro, i have written a code, that should work in sheet 6, but it always by defualt goes to sheet 1.Please find code below:

Sub Copy_Over()
Sheets("Without Credits").Activate
Application.ScreenUpdating = False
Dim i As Integer
Dim b As Integer
Dim Lastrow As Long
Dim Lastrow2 As Long
Sheets("Without Credits").Activate

For i = 1 To 2
Set shtJT = ActiveWorkbook.ActiveSheet
Lastrow = Sheets("Without Credits").Cells(Rows.Count, i).End(xlUp).Row + 1
Lastrow2 = Sheets("60+").Cells(Rows.Count, i).End(xlUp).Row + 1

For b = 1 To Lastrow
Sheets("60+").Cells(Lastrow2, i).Value = Cells(b, i).Value
Lastrow2 = Lastrow2 + 1
Next b
Next i

Application.ScreenUpdating = True

For j = 2 To Rows.Count
Sheets("60+").Activate
If Cells(j, 1).Value = "Kundnummer" Then
Rows(j).EntireRow.Delete
End If
Next j
End Sub

Pls help me

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!