Excel Forum

Code: Select all

Sub DATA_TRANFER()
    Set WSDA = Worksheets("DATA")
    'Set WFu = Application.WorksheetFunction
    
    Row_1 = 2
    WSDA.Cells(2, 1).Select
    Do While Not IsEmpty(ActiveCell.Value)
        Cells(Row_1, 11) = Cells(Row_1, 1).Value
        Cells(Row_1, 12) = Format(Cells(Row_1, 2).Value, "dd/mm/yyyy")
        Cells(Row_1, 13) = Format(Cells(Row_1, 2).Value, "h:mm:ss")
        Cells(Row_1, 14) = Cells(Row_1, 3).Value
        Row_1 = Row_1 + 1
        'WSDA.Select
        WSDA.Cells(Row_1, 1).Select
    Loop
    
End Sub