VBA Macro button to Copy from a cell (M15) to the next available blank cell in a range of cells (D28-D77)

[Yurop]

I am struggling to write a piece of code to copy a cell to the next available (blank) cell in a range (D28-D77).
My worksheet reads from a CSV that i import into a second worksheet and then runs a whole bunch of calculations, from which i get the output i am after in a cell (M15).
I need to do this again and again for a number of CSV's. What i would like to do is to not have to cut and paste this value manually every time i do my calcs on a CSV.

Any help would be appreciated.

 

[HongRu]

Your button "Import CSV" should be linked with a Macro.
You should add some code into the Macro for the two purposes:
A. copy cell "M15" to the most upper blank cell of D28-D77.
B. loop to open CSV files and run the Macro.

Purpose A is easier like this:

    Range("M15").Copy
    'Be sure "D78" must be blank
    Range("D78").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Purpose B. mm..just try it.

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "CSV files", "*.csv"
        .Show
        'then pick your CSV files
        For lngCount = 1 To .SelectedItems.Count
            myFileName = .SelectedItems(lngCount)
            'Here is your Macro of "Import CSV"
            'And you should put "myFileName" into the right place of the code.
            '............
            'put the Purpose A code          
           Range("M15").Copy
           'Be sure "D78" must be blank
           Range("D78").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        Next lngCount
    End With

Hope this help.

 

[Yurop]

Awesome, thanks for your help!
I got that working now.