[Resolved]Speeding it up?!?

[direktoren]

Hi all you wiz'es

I'm done with a macro at work, but need to test it completely with different values and options in the sheet - however this takes a LONG time since my macro is running on brute force!

Sub Start()
Dim iSheet As Worksheet
Dim kSheet As Worksheet
Dim n As Long
Dim j As Long
    
Application.ScreenUpdating = False
    
    Set iSheet = ActiveWorkbook.Sheets("Input")
    Set kSheet = ActiveWorkbook.Sheets("Konstante")
    
    For n = 1 To 15000
        For j = 1 To 300
            If kSheet.Cells(j, "A").Value = iSheet.Cells(n, "M").Value Then
                iSheet.Cells(n, "N").Value = kSheet.Cells(j, "B").Value
            End If
            If kSheet.Cells(j, "A").Value = iSheet.Cells(n, "N").Value Then
                iSheet.Cells(n, "O").Value = kSheet.Cells(j, "B").Value
            End If
            If kSheet.Cells(j, "A").Value = iSheet.Cells(n, "F").Value Then
                iSheet.Cells(n, "P").Value = kSheet.Cells(j, "B").Value
            End If
            If kSheet.Cells(j, "C").Value = iSheet.Cells(n, "F").Value Then
                iSheet.Cells(n, "AF").Value = kSheet.Cells(j, "D").Value
            End If
            iSheet.Cells(n, "AG").Value = iSheet.Cells(n, "AE").Value & iSheet.Cells(n, "AF").Value
            If kSheet.Cells(j, "A").Value = iSheet.Cells(n, "AG").Value Then
                kSheet.Activate
                kSheet.Range(Cells(j, "B"), Cells(j, "O")).Copy
                iSheet.Activate
                iSheet.Range(Cells(n, "Q"), Cells(n, "AD")).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = False
            End If
        Next j
    Next n
        
    Set iSheet = Nothing
    Set kSheet = Nothing
 
Application.ScreenUpdating = True
End Sub

The final macro is made up with 12 of these subcommands and a complete test takes 6500 secs! (that's 1h 48m 20s!!) - since I need to test it with a lot of different combinations I would like to speed up the process!

Is this possible??

thanx
/nick