Macro RSA_GapFromAlig

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub RSA_GapFromAlig()

    For i = 1 To 255 Step 1
        If IsEmpty(Sheets("Alig_vl").Cells(i, 1)) Then Exit For
    
        For j = 3 To 153 Step 1
            If Sheets("Alig_vl").Cells(i, j) Like "." Then
                Worksheets("Label").Cells(j, i).Insert Shift:=xlDown
                Worksheets("SEQ").Cells(j, i).Insert Shift:=xlDown
                Worksheets("All Abs.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("All Rel.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("NonPol sc Abs.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("NonPol sc Rel.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("Pol sc Abs.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("Pol sc Rel.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("all sc Abs.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("all sc Rel.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("mc Abs.").Cells(j, i).Insert Shift:=xlDown
                Worksheets("mc Rel.").Cells(j, i).Insert Shift:=xlDown
            End If
        Next j
'
        For j = 3 To 153 Step 1
            If Sheets("Alig_vh").Cells(i, j) Like "." Then
                Worksheets("Label").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("SEQ").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("All Abs.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("All Rel.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("NonPol sc Abs.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("NonPol sc Rel.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("Pol sc Abs.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("Pol sc Rel.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("all sc Abs.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("all sc Rel.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("mc Abs.").Cells(j + 151, i).Insert Shift:=xlDown
                Worksheets("mc Rel.").Cells(j + 151, i).Insert Shift:=xlDown
            End If
        Next j

    Next i
End Sub