Sub Backup_Clients()
Dim a, b(), c As Long, i As Long, j As Long, k As Long
With Worksheets("Canasta_")
a = .Range("A2:AF3")
For j = 3 To UBound(a, 2)
If a(1, j) <> "" Then c = c + 1
Next j
If c > 0 Then
ReDim Preserve b(1 To 2, 1 To c + 2)
b(1, 1) = a(1, 1): b(1, 2) = a(1, 2)
b(2, 1) = a(2, 2): b(2, 2) = a(2, 2)
k = 2
For j = 3 To UBound(a, 2)
If a(1, j) <> "" Then k = k + 1: b(1, k) = a(1, j): b(2, k) = a(2, j)
Next j
End If
End With
With Worksheets("Salvar")
i = .Range("B65536").End(xlUp).Row + 1
.Range("B" & i).Resize(UBound(b, 1), UBound(b, 2)) = b
End With
End Sub