Dim xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx()
ReDim xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx(xxxx - 2, xx - 14)
ReDim xxxxxxxxxxxxxxxxxxxx(xxxx - 2)
xxxxxxxxxxxxxxx = -1
For xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx = 2 To xxxx
If xxxxxxxxxxxxxxxxxxxxxxxxxxxxx = "" Then
xxxxxxxxxxxxxxxxxxxxxxx = ""
Else
xxxxxxxxxxxxxxxxxxxxxxx = BD.Cells(xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx, 1)
End If
...