Now that the lastrow is right, the rest of your code needs adjustment. Trial this...
lastRow1 = sh1.Range("A" & sh1.Rows.Count).End(xlUp).Row
  j = 2
    For i = 2 To lastRow1
        Set Rng = sh1.Range("A2").Offset(i - 2, 0)
     '   If Not (IsNull(Rng) Or IsEmpty(Rng)) Then
If Not Rng Is Nothing Then
            sh1.Range("A" & i).Copy
            sh2.Range("B" & j).PasteSpecial xlPasteValues
           Application.CutCopyMode = False
            sh1.Range("L" & i).Copy
            sh2.Range("C" & j).PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            j = j + 1
        End If
    Next i
Seems like it should work. Untested. Dave