I am into a situation where I need to copy a range from a excel sheet and paste it to another. I have done the following coding which is going well...

```
Dim mpn As String

mpn = Application.InputBox(prompt:="Input the MPN column name:")

mpn1 = mpn

mpn2 = mpn1 & ":" & mpn

Set currentSheet = wbSource.Worksheets(1)

lastRow1 = currentSheet.Range(mpn1).End(xlDown).Row

ThisWorkbook.Sheets("Sheet2").Range("F2:F" & lastRow1) = currentSheet.Range(mpn2 & lastRow1).Value

```

This coding goes perfectly well untill there is any blank cell in the column. Can anyone please help me on this particular situation.