Sub stolbTri()
'Dim b As int
'For a = 1 To 4
For a = 1 To 3628
b = Cells(a, 24).Value
'd = Cells(a, 26).Value
'c = Cells(a, 27).Value
'If b Like "USD*" Or b Like "EUR*" Or b Like "JPY*" Or b Like "GBP*" Or b Like "CHF*" Then

'Cells(a, 25) = c
'Else
Cells(a, 24) = b
'MsgBox b
'Cells(a, 24) = b
'End If
'Cells(a, 7).Value = "'" & b
Next a
End Sub
Sub stolbsemncat()

For a = 1 To 3628
b = Cells(a, 24).Value
c = Cells(a, 25).Value
If c = b Then
'Else
Cells(a, 25).Value = ""
'Cells(a, 22).Value = "D"
'MsgBox c
End If
Next a
End Sub
Sub pravka()
For a = 1 To 3628
b = Cells(a, 19)
If b = "" Then
c = Cells(a, 16)
d = Cells(a, 15)
e = Cells(a, 14)
f = Cells(a, 13)
g = Cells(a, 12)
h = Cells(a, 11)
Cells(a, 19) = c
Cells(a, 18) = d
Cells(a, 17) = e
Cells(a, 16) = f
Cells(a, 15) = g
Cells(a, 14) = h
Cells(a, 13) = ""
Cells(a, 12) = ""
Cells(a, 11) = ""
End If
Next a
End Sub

Sub delet()
For a = 1 To 3628
b = Cells(a, 25)
If b = 80 Then Cells(a, 24) = 80

If b = "" Or b = "80" Then
Cells(a, 25).Delete Shift:=xlToLeft
'MsgBox b
End If
Next a
End Sub