آدرس یک ستون در vba چگونه نوشته شود که جابجا شدن آن باعث خطا در برنامه نشود

[hs208]

با سلام خدمت دوستان عزیز
من میخوام در فایل نمونه زیر آدرس ستون در برنامه به گونه ای نوشته شود که با جابجا کردن ستون یا اضافه کردن ستون برنامه خطا ندهد یا جواب اجرای برنامه اشتباه نباشد
مثلا میخواهم تعداد دستگاههای سالم در ستون دوم فایل نمونه شمرده شود :
برنامه را اینگونه نوشتم که اول کلمه situation رو سرچ کن وقتی پیدا کردی شماره اون ستون رو برابر با j بگیر ، بعد بهش دستور بدم تعداد سلولهایی در ستون j که نوشته "OK" رو بشمار

Sub count()Cells.Find(What:="situation", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


j = ActiveCell.Column()

X = "=COUNTIF([Book1]Sheet1!C2,""ok"")"
End Sub

من میخوام به جای 2 در C2 که با رنگ قرمز در سطر آخر برنامه نوشته شده از j استفاده کنم ولی هر جور مینویسم خطا میگیره
لطفا راهنمایی کنید
فایل نمونه رو هم گذاشتم

Book1.xlsm

[shamsololama]

با درود فراوان

Sub chartfont()


With Worksheets(1).ChartObjects(1).Chart
    .HasDataTable = True
    .DataTable.HasBorderOutline = True
    .DataTable.Font.Size = 10
    .DataTable.Font.Name = "B Titr"
End With


End Sub