Ошибка в завершении макроса

[СтаСС]

Обращаюсь к специалистам (я точно не из их числа) у меня не получается дописать макрос...
Задача макроса скопировать данные с разных ячеек одного листа на 4-строку второго листа (до этого момента макрос работает) а в конце нужно чтоб макрос скопировал эту 4-строку на 3-лист в первую свободную строку (записи ведутся сверху вниз - допустим строки 1,2,3 заняты - значит вставить на 4-строку)
и вот здесь у меня какая-то ошибка

...
...
Range("A4:AU4").Select
    Selection.Copy
    Sheets("3").Select
 Range(.Range("A" & .Rows.Count).End(xlDown), .Range("AU4" & Rows.Count).End(xlDown)).Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 With Application
 .CutCopyMode = False
 .ScreenUpdating = True
 End With
 End Sub

[EducatedFool]

попробуйте так: (вместо всего приведенного вами кода)

Range("A4:AU4").Copy Sheets("3").Range("A" & Sheets("3").Rows.Count).End(xlUp).offset(1)

[СтаСС]

Yessss!
EducatedFool большое спасибо! Просто огромное а то я сам три часа голову ломал))

[СтаСС]

Подскажите еще пожалуйста как исправить чтоб вставляло только значение - не меняя конечного форматирования у меня уже голова совсем не варит ))
ОТБОЙ )) Разобрался.. вопрос окончательно решен.. еще раз СПАСИБО!

[СтаСС]

Объясните что я делаю не так?
В задумке с листа1 копируем строку 6 и вставляем ее на первую свободную на листе2 сохранив значение и исходное форматирование (плюс активируются ячейки a1 на обоих листах)... вот код:

    Sheets("1").Select
    Range("6:6").Copy Sheets("2").Range("A" & Sheets("2").Rows.Count).End(xlUp).Offset(1)
    Rows("6:6").Select
    Selection.Copy
    Sheets("2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Range("A1").Select
   Sheets("1").Select
   Range("A1").Select

вобщем я что то такое понаписал а на деле получается полная ерунда.. хелп ми)

[IgorGO]

Sheets("3").Range("A" & Sheets("3").Rows.Count).End(xlUp).offset(1).resize(1,47).value = Range("A4:AU4").value

[СтаСС]

IgorGO, сделал так

Sub t()
Sheets("2").Range("A" & Sheets("2").Rows.Count).End(xlUp).O ffset(1).Resize(1, 47).Value = Range("6:6").Value
End Sub

уже намного лучше но форматирование не сохраняет(

[IgorGO]

Подскажите еще пожалуйста как исправить чтоб вставляло только значение - не меняя конечного форматирования

EducatedFool, написал Вам вариант, который копирует данные с форматами
а что нужно-то?

[СтаСС]

то было старое.. а вот что сейчас нужно пост№5

Сообщение от СтаСС

Объясните что я делаю не так?
В задумке с листа1 копируем строку 6 и вставляем ее на первую свободную на листе2 сохранив значение и исходное форматирование (плюс активируются ячейки a1 на обоих листах)... вот код:

    Sheets("1").Select
    Range("6:6").Copy Sheets("2").Range("A" & Sheets("2").Rows.Count).End(xlUp).Offset(1)
    Rows("6:6").Select
    Selection.Copy
    Sheets("2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Range("A1").Select
   Sheets("1").Select
   Range("A1").Select

вобщем я что то такое понаписал а на деле получается полная ерунда.. хелп ми)

[СтаСС]

Сообщение от IgorGO

EducatedFool, написал Вам вариант, который копирует данные с форматами
а что нужно-то?

да там с форматом но копирует не значение (