Looping two sheet problem

[bkeat]

hi trying to loop in two sheets to copy data over and paste it can anyone see my error little bogged down trying to find it, any help be appreciated?

<code>



Dim ProductID As String
Dim MasIndex, MasLastRow As Integer
Dim SwIndex, SwLastRow As Integer






Sheets("Master").Activate
Range("A2").Select
Selection.End(xlDown).Select
MasLastRow = ActiveCell.Row

Sheets("Master").Activate
Range("A2").Select



For MasIndex = 2 To MasLastRow
Sheets("Master").Select
Range("A" & MasIndex).Select

For SwIndex = 2 To MasLastRow


If (ActiveCell.Value) <> "Not Required" Then

Sheets("Master").Activate


Sheets("Master").Select
Range("A" & MasIndex).Select
Selection.Copy

Sheets("Copy").Select
Range("A" & SwIndex).Select
ActiveSheet.Paste

End If

Next SwIndex

Next MasIndex







</code>


Thanks

 

[Andrew Poulsom]

For one thing you are using ActiveCell but that's not getting changed in your code.

 

[bkeat]

Great Thanks that fixed it.

beginner mistake