Перенос данных из одного листа на другой

[vertu81]

вот такая проблема как сделать чтобы 2 столбца(A:B;) с листа "sms_c" переносились в лист(smsSEND) тоже тут (A:B;) потом с листа"sms_c" взялись
столбец (C:D) и дальше сразу ставлялось после предыдущей операции и так со всеми
при добавлении номера в "sms_c" изменилось и список в лист "smsSEND"

P.S лист smsSEND должен включать 2 столбца со всеми значеннями (номер и текст) c-11,c-21,c-31,c-41...

[Hugo121]

Начало написал - дальше не понял что нужно:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 09.04.2014 by Hugo

    Sheets("sms_C").Columns("A:B").Cut Sheets("smsSEND").[A1]

End Sub

[vertu81]

на листах есть номера телефонов и текст отправки. Там разные группы участников. я использую программу для смс рассылки TELEFUM. ОНА отправляет смс имея параметры "номер" и "текст". чтоб отправить смс мне нужно выделить у каждой группы эти поля и отправлять смс. У каждой группы разный текст отправки .Это длительный процесс и я хочу оптимизировать и облегчить себе работу выделяя раз все номера и текст смс со всего листа отправив одним разом.

[vertu81]

За ранее спасибо.

[Hugo121]

Тогда так попробуйте:

Sub tt()
    Dim a(), i&, ii&, x&
    a = Sheets("sms_C").[a1].CurrentRegion.Value
    ReDim b(1 To UBound(a) * UBound(a, 2) / 2, 1 To 2)
    For ii = 1 To UBound(a, 2) Step 2
        For i = 2 To UBound(a)
            If Len(a(i, ii)) Then
                x = x + 1
                b(x, 1) = a(i, ii): b(x, 2) = a(i, ii + 1)
            End If
        Next
    Next
    With Sheets("smsSEND").[a1].Resize(x, 2)
        .Columns(1).NumberFormat = "@"
        .Value = b
    End With
End Sub