section = "";

for (y = 1; y < Bottom; y++) {
  if (left([1,y], 1) == "[") {
    section = [1,y];
  }

  if ([1,y] != "社員コード" &&
      [1,y] != "氏名" &&
      section != "[扶養親族]") {
    DeleteRow(y);
    y--;
  }
}