Page Comparison

if sheets(1).cells(i, 22).value <> "" then
  if sheets(1).cells(i, 6).value <> sheets(1).cells(i, 22).value then
    sheets(1).cells(i, 22).value = sheets(1).cells(i, 6).value  
  end if
end if

for i = 2 to sheets(1).usedrange.rows.count
    if sheets(1).cells(i, 22).value <> "" then
      if sheets(1).cells(i, 6).value <> sheets(1).cells(i, 22).value then
        sheets(1).cells(i, 22).value = sheets(1).cells(i, 6).value  
      end if
    end if 
next i