Macro-not refering correctly

ppp - Oct 3, 2016 at 01:43 AM
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
If Cells(j, 1).Value = "Kundnummer" Then
End If
Next j
End Sub

Pls help me