Αυτόματη αντιγραφή κελιών σε Excel με Visual Basic

[apok]

Update

Μετά απο αρκετό ψάξιμο το διαμόρφωσα ως εξής

Spoiler:

Sub copySpecificCells()
    Dim lastrow As Long, i As Long
    Dim pasteRow As Long
    
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    pasteRow = 9 '
    
    For i = 4 To lastrow '
        If Sheet1.Cells(i, 1) <> "" Then
            Sheet2.Cells(pasteRow, 1).Value = Sheet1.Cells(i, 1).Value '
            Sheet2.Cells(pasteRow, 2).Value = Sheet1.Cells(i, 2).Value '
            Sheet2.Cells(pasteRow, 3).Value = Sheet1.Cells(i, 3).Value
            Sheet2.Cells(pasteRow, 4).Value = Sheet1.Cells(i, 4).Value
            Sheet2.Cells(pasteRow, 5).Value = Sheet1.Cells(i, 18).Value
            Sheet2.Cells(pasteRow, 6).Value = Sheet1.Cells(i, 5).Value
            Sheet2.Cells(pasteRow, 7).Value = Sheet1.Cells(i, 13).Value
            Sheet2.Cells(pasteRow, 7).Value = Sheet1.Cells(i, 14).Value
            Sheet2.Cells(pasteRow, 7).Value = Sheet1.Cells(i, 13).Value
            Sheet2.Cells(pasteRow, 7).Value = Sheet1.Cells(i, 13).Value
            pasteRow = pasteRow + 1 '
       copiedCells = copiedCells + 1 '
            
            If copiedCells = 7 Then '
                Exit For '
            End If
        End If
    Next i
    
    Application.CutCopyMode = False
End Sub

Τώρα στο sheet2 πάει και αντιγράφει συγκεκριμένα κελιά απο το sheet1 και οχι τα πάντα

Βολεύει αφάνταστα αφού άλλη πληροφορία εχω στο sheet1 και άλλη θέλω να αποτυπώνεται στο sheet2 που είναι για πιντεφιού.

Επόμενο τασκ ( δεν το δοκίμασα ακομα ) είναι να κρατάει και τις συναρτήσεις που εχω στο sheet2