Kolom overlopen op waardes en bij een waarde actie ondernemen

[voske34]

Hallo,

Voor mijn stage moet ik programmeren in excel 2007. Hierbij zou ik moeten kunnen programmeren dat ik via een marcro een bepaalde kolom wordt gecontroleerd op een waarde. En indien hij deze waarde tegenkomt dat hij bepaalde cellen selecteerd en deze dan plakt in een andere worksheet

Momenteel heb ik deze code:
Worksheets("deurlijstlabo111005").Select
Range("AC65535").End(xlUp).Offset(1, 0).Select
If ActiveCell = "1" Then
ActiveCell.Offset(0, -8).Select
Selection.Copy
Sheets("RF0 vol").Select
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveCell.Paste
Selection.ClearContents
End If

Maar hierbij gaat hij naar cel 279 in die kolom.
Ik ben nieuw in het programmeren in vba excel dus als er grote fouten inzitten :s

Groeten bram