Kopieren und Sortieren von Daten von einem Blatt zu einem anderen, basiert auf die Zelle Werte

So, das ist es, was das arbeiten für mich jetzt, Ihr alle auf @simoco code:
Ich checke es für operative Konsistenz, aber der code funktioniert einwandfrei.

Kopiert es und fügt nur die Spalten von (meinem) Interesse, wo ich es brauche und sortiert dann eine Dynamik.

Sub copycolumnsonly()
   Dim sh1 As Worksheet
   Dim sh2 As Worksheet
   Dim lastrow1 As Long
   Dim lastrow2 As Long
   Dim j As Long
   Dim i As Long
   Dim rng As Range

   'set correct name of the sheet with your data'
   Set sh1 = ThisWorkbook.Worksheets("ÐÑÏÓÖÏÑÅÓ")

   'set correct name of the sheet where you need to paste data'
   Set sh2 = ThisWorkbook.Worksheets("ÅÍÔÏËÅÓ ÐÁÑÁÃÙÃÇÓ")

   'determining last row of your data in file ÁÁÁÁÁÁÁÁ.xlsx'
   lastrow1 = sh1.Range("C" & sh1.Rows.Count).End(xlUp).Row

   'determining last row of your data in file ÂÂÂÂÂÂÂÂ.xls'
   lastrow2 = sh2.Range("F" & sh2.Rows.Count).End(xlUp).Row

   'clear content in sheet2
    sh2.Range("F11:F" & lastrow2).ClearContents
    sh2.Range("G11:G" & lastrow2).ClearContents
    sh2.Range("N11:N" & lastrow2).ClearContents

   'suppose that in sheet2 data starts from row #11
    j = 11

    For i = 0 To lastrow1

       Set rng = sh1.Range("G11").Offset(i, 0)
       'check whether value in column D is not empy
       If Not (IsNull(rng) Or IsEmpty(rng)) Then
            sh1.Range("B" & i + 11).Copy
            sh2.Range("F" & j).PasteSpecial xlPasteValues

            sh1.Range("g" & i + 11).Copy
            sh2.Range("G" & j).PasteSpecial xlPasteValues

            sh1.Range("K" & i + 11).Copy
            sh2.Range("N" & j).PasteSpecial xlPasteValues


           j = j + 1
        End If
     Next i
     Application.CutCopyMode = False

        'sorting the new list, recorded macro tweaked to use a dynamic named range



    ActiveWorkbook.Worksheets("ÅÍÔÏËÅÓ ÐÁÑÁÃÙÃÇÓ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ÅÍÔÏËÅÓ ÐÁÑÁÃÙÃÇÓ").Sort.SortFields.Add Key:=Range( _
        "G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ÅÍÔÏËÅÓ ÐÁÑÁÃÙÃÇÓ").Sort
        .SetRange Range("PRODUCTIONORDERS")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End Sub

Sieht es aus wie Sie müssen Sie lediglich kopieren, werden nur die Zeilen mit einem Wert in der "Confirmation Date" Spalte - wenn ich lese, das oben richtig.
Wenn das Blatt mit der täglichen updates wird als "Erste" und die daraus resultierende Platte mit nur die bestätigten Bestellungen ist die "Zweite", die folgenden sollten es tun...

Sub Makro1()
'
'Makro1 Makro
'

'
lastRow = 10 ' hier hart codiert; verwende die Technik, um wirkliche Wert.

'Copy over the headers to the new sheet
Sheets("First").Select
Rows("1:1").Select
Selection.Copy
Sheets("Second").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:F").ColumnWidth = 9
Columns("G:G").ColumnWidth = 12
Sheets("First").Select
' Range("G1").Select
Confirm_Count = 0
For Row = 1 To lastRow
    If Len(Range("G1").Offset(Row, 0)) > 1 Then
        Rows(Row + 1).Select
        Selection.Copy
        Sheets("Second").Select
        Confirm_Count = Confirm_Count + 1
        Range("A1").Offset(Confirm_Count, 0).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Sheets("First").Select
    End If
Next Row

End Sub