copy and paste to next empty cell, skipping empty cells from copy range

[Cardrius]

Hi guys,



I want to copy ranged data to next empty cell in column C in journal sheet. Everything works but somehow empty cells aren't empty (i got in copy range formulas throwing "") so if
i run macro more than once data is pasted under cells which are supposed to be empty.

Sub kopiuj_do_jurnal()
'
' kopiuj_do_jurnal Makro
'


'
    Sheets("VAR").Select
    Range("M3:W32").Select
    Selection.Copy
    Sheets("Journal").Select
    Range("C" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
  






End Sub

 

[Fluff]

Hi & welcome to the board.
Try

Sub kopiuj_do_jurnal()
'
' kopiuj_do_jurnal Makro

    Sheets("VAR").Select
    Range("M3:W32").Select
    Selection.copy
    Sheets("Journal").Select
    With Range("C" & Rows.Count).End(xlUp).Offset(1)
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=True, Transpose:=False
        .Resize(30, 11).Value = .Resize(30, 11).Value
    End With
End Sub