Paste to first empty cell after a specific cell

[happydonut]

Hey guys,

I want to copy a range from Sheet1 (example column F starting from row 2) and paste it in another column in Sheet2 in the first empty cell starting from B6. Can anyone help with the code?
What I have done so far, which not works:

Dim ws as Worksheeet
Dim ws2 as Worksheet

Set ws = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

Dim wsLR As Long, ws2LR As Long

wsLR = ws.Cells(Rows.Count, "A").End(xlUp).Row
ws2LR = ws2.Cells(Rows.Count, "A").End(xlUp).Row

    ws.Range("F2:F" & wsLR).Copy
    ws2.Range("B6:B" & ws2LR).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

 

[Peter_SSs]

What I have done so far, which not works:

Good to show us what you have tried, but just saying it doesn't work gives us little to go on. Best to say if it
- Gives an error? What error on what line?
- Crashes excel
- Does nothing
- Pastes in the wrong place? Where did it paste?
etc

In any case, give this a try

Dim ws As Worksheet
Dim ws2 As Worksheet

Set ws = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

Dim wsLR As Long, ws2LR As Long

wsLR = ws.Cells(Rows.Count, "F").End(xlUp).Row
If wsLR > 1 Then
ws2LR = ws2.Cells(Rows.Count, "B").End(xlUp).Row
If ws2LR < 5 Then ws2LR = 5
  ws.Range("F2:F" & wsLR).Copy
  ws2.Range("B" & ws2LR + 1).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
End If