If cell has data, move down 1 row and paste

[Glasgowsmile]

Good morning,

I have the following macro. I simply want it to look at A1 on the current worksheet, if that cell has data then move down to A2. Then the next time I important data it will look at A2 and paste in A3 etc.

Not quite sure how to do this myself, any help is appreciated!

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim crnt As Workbook
Dim source As Workbook

With Application.FileDialog(msoFileDialogOpen)
      .Filters.Clear
      .Filters.Add "CSV Files", "*.csv"
      .AllowMultiSelect = False
      .Show
      If .SelectedItems.Count > 0 Then
         Workbooks.Open .SelectedItems(1)
         Set source = ActiveWorkbook
         
         Sheets("Day").Range("A22").Copy
         Sheet1.Range("A1").PasteSpecial xlPasteValues
      End If
End Sub

 

[Glasgowsmile]

That's exactly what it's meant to do, so it's working fine.

Huh? I'm confused. I thought Transpose was to put data horizontally across?

 

[Fluff]

No, Transpose switches the orientation of the data, so vertical data becomes horizontal & horizontal will become vertical.

 

[Glasgowsmile]

No, Transpose switches the orientation of the data, so vertical data becomes horizontal & horizontal will become vertical.

I see, thanks for the clarification!

 

[Fluff]

You're welcome.