Thnx guys I really appreciate this

but why do i get error when "zaseden is not found" error is at line
[VBA]Set c = Columns("K").Find(What:="Zaseden", after:=Header, LookIn:=xlValues, _
[/VBA]