vba 셀텍스트합치기

Sub 셀텍스트합치기()
    Dim rngS As Range
    Dim strCon As String
    Set rngS = Range("F2", Cells(Rows.Count, "F").End(xlUp))
    strCon = ""
    For Each c In rngS
        strCon = strCon + "'" + c + "',"
    Next
    Range("m2") = strCon
End Sub